在Excel 2016中將一個工作簿中的多個工作表拆分成多個工作簿，在開發工具中的vba 模塊中輸入一下代碼（并修改savepath的值為要存儲的路徑），然后運行即可。

Sub SplitWorkbook()Dim srcWorkbook As WorkbookDim srcWorksheet As WorksheetDim newWorkbook As WorkbookDim newWorksheet As WorksheetDim cell As RangeDim savePath As String' 設置源工作簿Set srcWorkbook = ThisWorkbook' 設置保存路徑savePath = "C:\Temp\" ' 設置保存路徑' 循環遍歷源工作簿中的每個工作表For Each srcWorksheet In srcWorkbook.Worksheets' 創建一個新的工作簿Set newWorkbook = Workbooks.Add' 將源工作表復制到新工作簿srcWorksheet.Copy Before:=newWorkbook.Sheets(1)' 設置新工作簿的工作表Set newWorksheet = newWorkbook.Sheets(1)' 刪除新工作簿中的其他工作表Application.DisplayAlerts = FalseDo While newWorkbook.Sheets.Count > 1newWorkbook.Sheets(2).DeleteLoopApplication.DisplayAlerts = True' 保存新工作簿newWorkbook.SaveAs savePath & srcWorksheet.Name & ".xlsx"newWorkbook.CloseNext srcWorksheet' 關閉源工作簿srcWorkbook.Close
End Sub