怎麼將Excel多個工作表拆分成多個單獨的Excel

工作中經常會用到excel，熟練的運營excel可以高效的減少工作量，很多人制作excel時會將不同的數據分類，就形成了一個excel中有多個工作表(sheet)，但是由於某些原因需要將這些工作表單獨放到一個excel中，但由於數據量大會給我們的工作帶來很多困擾，怎麼將excel多個工作表拆分成多個單獨的excel？excel是個很強大的軟件，我們來看一下拆分一個Excel工作簿中的多個工作表的方法。

方法/步驟

1、例如工作薄中有多個工作表，如圖：

2、將一個Excel工作簿中的多個工作表(sheet)拆分成如下圖所示結果

3、打開需要拆分的excel，在任意工作表右擊，點擊“查看代碼”

4、在打開的窗口中輸入如下代碼：

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:=xlOpenXMLWorkbook '將工作簿另存為xlsx格式

ActiveWorkbook.Close

Next

MsgBox "文件已經被分拆完畢!"

End Sub

5、點擊綠色三角，運行程序，等待拆分。

6、拆分成功後，會彈出窗口提示。

7、返回Excel工作簿文件所在路徑 即可查看已經拆分的工作薄。

原創作品，轉載請保留出處