怎么将Excel多个工作表拆分成多个单独的Excel

1、例如工作薄中有多个工作表，如图：

2、将一个Excel工作簿中的多个工作表(sheet)拆分成如下图所示结果

3、打开需要拆分的excel，在任意工作表右击，点击“查看代码”

4、在打开的窗口中输入如下代码：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:=xlOpenXMLWorkbook '将工作簿另存为xlsx格式 ActiveWorkbook.Close Next MsgBox "文件已经被分拆完毕!" End Sub

5、点击绿色三角，运行程序，等待拆分。

6、拆分成功后，会弹出窗口提示。

7、返回Excel工作簿文件所在路径 即可查看已经拆分的工作薄。