怎么拆分一個Excel工作簿中的多個工作表（怎么將一個工作簿拆分多個工作表）

手中有一個EH文件，工作簿中含幾百個工作表，每個工作表現要怎樣快速分解成單個EH文件?今天小編就教你如何利用函數將一個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

單擊運行-運行子過程|窗體 幾秒過后 彈出提示窗口“文件已被拆分完畢” 如下圖所示

返回Excel工作簿文件所在路徑 查看 如下圖所示 原先工作簿中的工作表已經成為單獨的工作簿了!

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。