excel一個工作簿中多個工作表怎麼拆分成多個工作簿

一個Excel中會出現有很多個工作表的情況，有時會根據需要將他們拆分成不同的工作簿，該怎麼做呢？

材料/工具

Excel

方法

開啟一個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

點擊頁面上方“執行”-“執行子過程/用戶視窗”即可拆分