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

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

2、我们用鼠标右击随便一个工作表的标签，然后我们鼠标会弹出一个右键菜单，然后我们在菜单中点击查看代码，然后会打开代码的窗口。

3、然后我们在代码窗口中可以看到是一片看白，接着我们要在窗口中输入一些代码了

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     '将工作簿另存为
           ActiveWorkbook.Close
       Next
       MsgBox "文件已经被分拆!"
   End Sub

我们输入这些代码之后就可以了。

4、然后我们单击导航栏的【运行】就可以了，我们在运行菜单中可以看到【运行子过程/用户媒体】，然后窗口会弹出提示框，接着我们的账单就被拆分了。

1、1、打开需要编辑的工作簿。

2、点击任意表格查看代码。

3、输入代码之后点击运行进行拆分，数秒拆分完毕。