怎么拆分Excel工作簿中的多個工作表
時間：
張偉670由 分享
怎么拆分Excel工作簿中的多個工作表
拆分單元格很容易，但是拆分excel工作薄就不容易了，下面小編向大家分享如何利用函數(shù)將一個Excel工作簿中的多個工作表拆分成為單獨的工作簿文件。希望對你有幫助！
拆分Excel工作簿中的多個工作表的方法
打開需要編輯的Excel文檔。如圖所示，工作簿下方有很多工作表。現(xiàn)在需要將這些工作表單獨拆分開成一個個工作簿。
拆分Excel工作簿中的多個工作表的方法圖1
右鍵任意一個工作表標(biāo)簽，在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。如下圖所示。
拆分Excel工作簿中的多個工作表的方法圖2
拆分Excel工作簿中的多個工作表的方法圖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默認(rèn)格式
ActiveWorkbook.Close
Next
MsgBox "文件已經(jīng)被分拆完畢!"
End Sub
拆分Excel工作簿中的多個工作表的方法圖4
拆分Excel工作簿中的多個工作表的方法圖5
單擊運行-運行子過程|窗體 幾秒過后 彈出提示窗口“文件已被拆分完畢” 如下圖所示
拆分Excel工作簿中的多個工作表的方法圖6
拆分Excel工作簿中的多個工作表的方法圖6
猜你喜歡：