秋葉PPT - 讓老闆看傻，2000個工作表批量轉成文件！－鑽石舞台

關注【秋葉 Excel】👆發送【插件】

免費領 Excel 必備 4 大插件

作者：雅梨子

策劃：視頻小分隊

編輯：嘉言

哈嘍大家好，我是雅梨子。

每天學點 Excel，工作效率 up~up~

假如給你一個工作簿，裡面有兩千張工作表，現在要把它們全部拆分出來，你會用什麼方法來完成呢？

你不會還在用最原始的手段：

將鼠標移動到需要拆分的工作表，點擊右鍵 - 移動或複製 - 選擇「新工作薄」，最後「另存為」吧。

這樣做，效率也太低了，加班肯定沒跑了！（趕緊 pass 掉~）

今天，梨子就為大家分享一個——批量拆分工作簿的實用方法，只需要 5 秒哦~

先一起來看個小視頻👇👇👇

▲ 點擊查看詳細的視頻操作

視頻操作太快沒看清？沒關係，下面還有圖文教程哦~

現在關注【秋葉 Excel】

發送關鍵詞【模板】

免費領 100+ 實用表格模板！

👇👇👇

👉具體操作：

❶ 首先按【Alt+F11】打開 vba 界面，在包含工作表的文件夾上點擊右鍵，選擇「插入」-「模塊」。

PS. 部分筆記本電腦是按【Fn+Alt+F11】喲~

❷ 然後將準備好的代碼，複製到 vba 界面：

代碼如下：

Private Sub 分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=MyBook.Path & "儲存路徑\" & sht.Name, FileFormat:=xlWorkbookDefaultActiveWorkbook.CloseNextMsgBox "工作簿拆分完成啦"End Sub

▲ 左右滑動查看

再將拆分後要保存的路徑，複製下來，選中「儲存路徑」這幾個字，按【Ctrl+V】粘貼。