領導發給我1個工作簿文件，希望我把里面每個工作里面都單獨保存出來

如果工作表比較少，可以一個個手動的復制粘貼，花了將近半個小時，同事用這個技巧，直接1分鐘就拆分完成了。

操作的步驟如下：

?點擊開發工具，選擇visual basic

?然后新建一個模塊，輸入代碼：

代碼如下所示：

Sub 拆分工作簿()Dim wk As Workbook, i$, j%Application.DisplayAlerts = FalseFor Each sht In Workbooks(1).Sheets Set wk = Workbooks.Add j = j + 1 Workbooks(1).Sheets(j).Copy Workbooks(2).Sheets(1) i = ThisWorkbook.Path & "\" & sht.Name & ".xlsx" wk.SaveAs i wk.CloseNextApplication.DisplayAlerts = TrueMsgBox "拆分完成！"End Sub

這段代碼就是模擬了手動的復制粘貼過程，是通用的，下次碰到可以直接使用

?最后點擊開發工具的宏，執行宏，就把每個工作表拆分了一個工作簿保存下來

注意事項：在運行這個宏之前，需要把其他所有的工作簿都關閉，否則會出錯

下次再碰到很多個工作表需要拆分的時候，用這段代碼直接運行吧！

總結

以上是生活随笔為你收集整理的拆分文件_领导让把工作表拆分每个文件，我花半个小时，同事1分钟搞定了的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。