如何把多个sheet拆成独立的excel（把多个sheet拆分为单独表格）

把多个sheet拆成独立的excel，可以通过以下步骤实现：

按住"ALT+F11"键打开Microsoft Visual Basic for Applications窗口。

点击"插入>模块"，并将以下代码粘贴到模块窗口中：

vba

Private Sub 分拆工作表()

    DimshtAsWorksheet

    Dim MyBookAsWorkbook

    Set MyBook=ActiveWorkbook

    For EachshtInMyBook.Sheets

        sht.Copy

        ActiveWorkbook.SaveAs Filename:=MyBook.Path&""&sht.Name, FileFormat:=xlNormal'将工作簿另存为EXCEL默认格式

        ActiveWorkbook.Close

    Next MsgBox "文件已经被分拆完毕!"

End Sub

按"F5"键运行代码。