領導發(fā)給我1個工作簿文件，希望我把里面每個工作里面都單獨保存出來
如果工作表比較少，可以一個個手動的復制粘貼，花了將近半個小時，同事用這個技巧，直接1分鐘就拆分完成了。
操作的步驟如下：
?點擊開發(fā)工具，選擇visual basic
?然后新建一個模塊，輸入代碼：
代碼如下所示：
Sub 拆分工作簿()
Dim wk As Workbook, i$, j%
Application.DisplayAlerts = False
For 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.Close
Next
Application.DisplayAlerts = True
MsgBox "拆分完成！"
End Sub
這段代碼就是模擬了手動的復制粘貼過程，是通用的，下次碰到可以直接使用
?最后點擊開發(fā)工具的宏，執(zhí)行宏，就把每個工作表拆分了一個工作簿保存下來
注意事項：在運行這個宏之前，需要把其他所有的工作簿都關閉，否則會出錯
下次再碰到很多個工作表需要拆分的時候，用這段代碼直接運行吧！
