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、单击运行按钮来完成各个工作表保存为单一工作簿。