怎麼拆分一個Excel工作簿中的多個工作表？

小編之前分享過如何合併多個工作表，這倒好，現在再來介紹一下如何拆分同一個工作薄中的多個工作表。

操作方法

（01）如下圖所示，工作薄中有四個工作表。

（02）在工作表處，右擊滑鼠，點選“檢視程式碼”

（03）圖下圖所示，彈出的視窗中，直接點選插入——模組。

（04）在彈出的視窗中輸入一下程式碼： Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In ts As Filename:= & "" & , FileFormat:=xlNormal '將工作簿另存為EXCEL預設格式 e Next MsgBox "檔案已經被分拆完畢!" End Sub

（05）然後點選執行，點選執行子過程。

（06）經過一番運算，最終完成後，會彈出下圖介面，點選完成即可。

（07）拆分出來的四個工作表如下圖所示，效果還不錯。