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

有时候收到或者下载下来的工作簿中包含多个工作表，但是为了方便发送给不同的个体，需要把每个工作表拆分成不同的工作簿，下面就介绍一下解决方法：

方法

打开表格，如下一个工作簿中有多个工作表

点击进入工作表

右击任意一个工作表标签，在弹出的下拉列表中选择【查看代码】

之后进入弹出的空白区域

空白处，复制黏贴如下信息：
　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

点击运行-运行子过程/用户窗体。

完成后，保存

到此就成功拆分成多个了。