在牛閃閃的日子 微信最文藝的Office學(xué)習(xí)賬號領(lǐng)津認證 達人THINK+金融公司運營專員【Excel教程】如何將一個工作簿中多個工作表拆分成獨立的工作簿？
在工作中經(jīng)常會遇到這樣的問題，別的部門發(fā)給你一個EXCEL工作簿，里面有好多個工作表，但是呢，你處理的時候需要將里面的工作表拆分成一個個獨立的工作簿才能處理。 比如下圖： 你需要分別將工作表上海 、領(lǐng)津 、牛閃閃導(dǎo)入系統(tǒng)，怎么辦呢？ 一個個新建工作簿然后 Ctrl C / Ctrl V 嘛 ？ 下面給大家介紹一種簡單的方法。
將后面代碼復(fù)制到一個新模塊中（右擊模塊——插入——模塊）如下圖，最下面的那個紅框那里可以修改模塊的名稱。
復(fù)制的完整代碼及注釋如下：
Sub 拆分工作簿
Dim sht As Worksheet '定義一個工作表變量 sht
Dim mybook As Workbook '定義一個工作簿變量 mybook
Application.ScreenUpdating = False '關(guān)閉屏幕更新:作用為加快宏的執(zhí)行速度,這樣將看不到宏的執(zhí)行過程，但宏的執(zhí)行速度加快了。
Set mybook = ActiveWorkbook '將當(dāng)前工作簿賦值給變量 mybook
For Each sht In mybook.Sheets ' FOR 循環(huán)實現(xiàn)將工作簿中的多個工作表拆開成以工作表名稱命名的工作簿并保存在原工作簿相同的路徑中
sht.Copy
ActiveWorkbook.SaveAs Filename:=mybook.Path & "\" & sht.Name, FileFormat:=xlNormal
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True '恢復(fù)屏幕刷新 ，屏幕刷新 False /True 需成對出現(xiàn) 。
MsgBox "工作簿已經(jīng)拆分完畢"
End Sub
執(zhí)行代碼后可以看到在原工作簿的相同目錄下拆分出了3個新的工作簿，這就是我們想要的結(jié)果啦 。
END長按二維碼，關(guān)注 在牛閃閃的日子
更多職場Office達人盡在：http://www.lingjinsh.com 點擊“閱讀原文”訪問歡迎互動參與發(fā)表你的評論吧！
