領(lǐng)導(dǎo)發(fā)給我1個(gè)工作簿文件，希望我把里面每個(gè)工作里面都單獨(dú)保存出來(lái)

如果工作表比較少，可以一個(gè)個(gè)手動(dòng)的復(fù)制粘貼，花了將近半個(gè)小時(shí)，同事用這個(gè)技巧，直接1分鐘就拆分完成了。

操作的步驟如下：

?點(diǎn)擊開(kāi)發(fā)工具，選擇visual basic

?然后新建一個(gè)模塊，輸入代碼：

代碼如下所示：

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

這段代碼就是模擬了手動(dòng)的復(fù)制粘貼過(guò)程，是通用的，下次碰到可以直接使用

?最后點(diǎn)擊開(kāi)發(fā)工具的宏，執(zhí)行宏，就把每個(gè)工作表拆分了一個(gè)工作簿保存下來(lái)

注意事項(xiàng)：在運(yùn)行這個(gè)宏之前，需要把其他所有的工作簿都關(guān)閉，否則會(huì)出錯(cuò)

下次再碰到很多個(gè)工作表需要拆分的時(shí)候，用這段代碼直接運(yùn)行吧！

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。