怎么拆分Excel工作簿中的多個工作表

怎么拆分Excel工作簿中的多個工作表

　　拆分單元格很容易，但是拆分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

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

猜你喜歡：

1.excel一個表格分成多表的方法

2.Excel表格內容怎么分成多個工作表

3.Excel怎樣引用多個工作表數據

4.Excel中表格多個工作表合并一個工作表的操作方法

5.excel怎么給多個工作表同時錄入相同的數據

6.excel怎么合并多個工作表