https://jingyan.baidu.com/article/03b2f78c70dea95ea337ae67.html
1、Excel單工作簿中有三個工作表，分別為“生產(chǎn)部”抽莱、“服務部”、“營銷部”僧著，現(xiàn)在需要將三個工作表批量保存為單一的新工作簿文件既绩。
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践美、單擊“保存”按鈕洗贰，可能會出現(xiàn)如下提示，當然可以直接單擊“是”陨倡，這里建議大家選擇“否”敛滋。
說明：如果你選項“是”可以省去如下6、7步操作兴革，但宏代碼不保存绎晃。
6、如果選擇“否”杂曲，則會打開“另存為”對話框庶艾，選擇保存位置，輸入保存文件名擎勘，將保存類型選擇為“Excel啟用宏的工作簿（*.xlsm）”咱揍，然后單擊“保存”。
7棚饵、單擊運行按鈕來完成各個工作表保存為單一工作簿煤裙。
