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

1、首先我们在Excel中打开我们需要编辑的Excel表格，然后我们在工作簿中可以看到有很多的工作表，然后我们要做的是将这些工作表都拆开。

3、然后我们在代码窗口中可以看到是一片看白，接着我们要在窗口中输入一些代码了Pri箪滹埘麽vate 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 '将工作簿另存为 ActiveWorkbook.Close Next MsgBox "文件已经被分拆!" End Sub我们输入这些代码之后就可以了。