怎麼拆分一個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）拆分出來的四個工作表如下圖所示，效果還不錯。