https://jingyan.baidu.com/article/03b2f78c70dea95ea337ae67.html
1、Excel单工作簿中有三个工作表，分别为“生产部”、“服务部”、“营销部”，现在需要将三个工作表批量保存为单一的新工作簿文件。
2、在任意一个工作表标签上右击，然后选择“查看代码”。
3、这时候打开Microsoft Visual Basic for Application对话框，在菜单栏，单击“插入”—“模块”。
4、在模块对话框中输入如下代码：
Private Sub hjs()
Dim sht As Worksheet
Dim ThisBook As Workbook
Set ThisBook = ActiveWorkbook
For Each sht In ThisBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sht.Name & ".xlsx"
ActiveWorkbook.Close
Next
MsgBox "分拆完毕"
End Sub
5、单击“保存”按钮，可能会出现如下提示，当然可以直接单击“是”，这里建议大家选择“否”。
说明：如果你选项“是”可以省去如下6、7步操作，但宏代码不保存。
6、如果选择“否”，则会打开“另存为”对话框，选择保存位置，输入保存文件名，将保存类型选择为“Excel启用宏的工作簿（*.xlsm）”，然后单击“保存”。
7、单击运行按钮来完成各个工作表保存为单一工作簿。
