怎麼拆分一個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

點擊運行-運行子過程/用户窗體。

完成後，保存

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