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

點擊頁面上方“運行”-“運行子過程/用户窗口”即可拆分