1、首先我们在Excel中打开我们需要编辑的Excel表格，然后我们在工作簿中可以看到有很多的工作表，然后我们要做的是将这些工作表都拆开。
2、我们用鼠标右击随便一个工作表的标签，然后我们鼠标会弹出一个右键菜单，然后我们在菜单中点击查看代码，然后会打开代码的窗口。
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我们输入这些代码之后就可以了。
4、然后我们单击导航栏的【运行】就可以了，我们在运行菜单中可以看到【运行子过程/用户媒体】，然后窗口会弹出提示框，接着我们的账单就被拆分了。
