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

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