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

方法

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

点击进入工作表

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

之后进入弹出的空白区域

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

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

完成后，保存

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