Excel中多個工作表拆分生成單個文件，同事1分鐘搞定了

在Excel文件中有多個工作表，如何把裡面的每個工作表拆分 出來生成單獨的文件保存起來呢？

上圖中有12個工作表，手動複製-粘貼，十幾分鍾也能完成。

如果更多呢工作表呢？

今天小編分享一段代碼，1分鐘就完成。

具體操作步驟：

1、點擊【開發工具】選項卡中的【VisualBasic】按鈕，或按Alt+F11鍵，調出VBA代碼窗口；

2、在VBA窗口中，點擊左側列表中的【ThisWorkbook】，然後輸入代碼：

代碼如下：

Sub 拆分工作表()

Dim i

Dim sht As Worksheet

Application.DisplayAlerts = False

For Each sht In Sheets

sht.Copy

i = ThisWorkbook.Path & "" & sht.Name & ".xlsx"

ActiveWorkbook.SaveAs i

ActiveWorkbook.Close

Next

Application.DisplayAlerts = True

MsgBox "工作表生成文件完成！", vbOKOnly, "提示"

End Sub

不明白代碼的小夥伴們，可以直接複製-粘貼就好了。

3、最後點擊【運行】按鈕（下圖圈出位置），等待執行完成後，每個工作表就拆分成了一個文件保存在同一個文件夾下。

【注意】使用之前，把其他Excel文件都關閉，只打開需要拆分的文件。

你學會了嗎？記得給小編轉發、點贊喲！需要什麼教程可以在評論區留言