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

2019-12-07 22:16:13

本篇經驗貼子中，我將向大家分享如何利用函數將一個Excel工作簿中的多個工作表拆分成為單獨的工作簿檔案。步驟亦不負責，具體請參看內容。希望對你有所幫助！

1

開啟需要編輯的Excel文件。如圖所示，工作簿下方有很多工作表。現在需要將這些工作表單獨拆分開成一個個工作簿。

2

右鍵任意一個工作表標籤，在彈出的下拉選單中選擇檢視程式碼。即彈出程式碼視窗。如下圖所示。

3

點選選單插入-模組在彈出的模組對話方塊中輸入以下程式碼：

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

4

單擊執行-執行子過程|表單幾秒過後彈出提示視窗「檔案已被拆分完畢」如下圖所示

5

返回Excel工作簿檔案所在路徑檢視如下圖所示原先工作簿中的工作表已經成為單獨的工作簿了！不信可以對照檢視圖中的修改日期

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

1

2

3

4

5

熱門文章