怎么拆分一个Excel工作簿中的多个工作表

1、打开需要处理的Excel文档。

3、单击“查看代码”。

5、单击“插入”。

7、输入以下代码：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:=xlNormal '将工作簿另存为EXCEL默认格式 ActiveWorkbook.Close Next MsgBox "文件已经被分拆完毕!" End Sub

8、点击“运行”。

10、文件拆分完毕。