前言｜职场实例
一个Excel工作簿中会出现有很多个工作表的情况，有时会根据需要将他们拆分成不同的工作簿，我们该怎么做呢？
下面小编用一个简单的例子来模拟解决这个“批量拆分”的问题。
如下图所示：在一个文件夹中，存放着一个需要批量拆分工作表的总表工作簿，工作簿中含有三个工作表，名称分别为“1月工资表”，“2月工资表”，“3月工资表”。
这些工作表单独拆分开成一个个工作簿后的效果：
步骤｜解决方案
打开总表工作簿，首先按下快捷键Alt F11调出VBA界面（或者右击工作表，选择查看代码），点击“插入-模块”，复制粘贴代码放进新建的模块中。如下图所示：
代码如下：
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
点击“运行”按钮，几秒过后，弹出提示窗口“文件已被拆分完毕” ，如下图所示：
最后我们回到原工作簿的根目录文件夹，发现工作表已经全部分解成功。打开拆分完成的每个独立的工作簿，如下图所示：
