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

點選執行-執行子過程/使用者窗體。

完成後，儲存

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