Office达人分享 | Excel教程如何将一个工作簿中多个工作表拆分成独立的工作簿？

在牛闪闪的日子 微信最文艺的Office学习账号领津认证 达人THINK+金融公司运营专员【Excel教程】如何将一个工作簿中多个工作表拆分成独立的工作簿？

在工作中经常会遇到这样的问题，别的部门发给你一个EXCEL工作簿，里面有好多个工作表，但是呢，你处理的时候需要将里面的工作表拆分成一个个独立的工作簿才能处理。 比如下图： 你需要分别将工作表上海 、领津 、牛闪闪导入系统，怎么办呢？ 一个个新建工作簿然后 Ctrl C / Ctrl V 嘛 ？ 下面给大家介绍一种简单的方法。

将后面代码复制到一个新模块中（右击模块——插入——模块）如下图，最下面的那个红框那里可以修改模块的名称。

复制的完整代码及注释如下：

Sub 拆分工作簿

Dim sht As Worksheet '定义一个工作表变量 sht

Dim mybook As Workbook '定义一个工作簿变量 mybook

Application.ScreenUpdating = False '关闭屏幕更新:作用为加快宏的执行速度,这样将看不到宏的执行过程，但宏的执行速度加快了。

Set mybook = ActiveWorkbook '将当前工作簿赋值给变量 mybook

For Each sht In mybook.Sheets ' FOR 循环实现将工作簿中的多个工作表拆开成以工作表名称命名的工作簿并保存在原工作簿相同的路径中

sht.Copy

ActiveWorkbook.SaveAs Filename:=mybook.Path & "\" & sht.Name, FileFormat:=xlNormal

ActiveWorkbook.Close

Next

Application.ScreenUpdating = True '恢复屏幕刷新 ，屏幕刷新 False /True 需成对出现 。

MsgBox "工作簿已经拆分完毕"

End Sub

执行代码后可以看到在原工作簿的相同目录下拆分出了3个新的工作簿，这就是我们想要的结果啦 。

END长按二维码，关注 在牛闪闪的日子

更多职场Office达人尽在：http://www. 点击“阅读原文”访问欢迎互动参与发表你的评论吧！