文檔介紹：快速合并多個Excel工作簿到一個新的工作簿如果你有大量Excel工作簿需要合并到一起時,要是你手動完成這一工作,也許這個工作可能將花費你一整天的時間。其實要完成這類合并工作,最好的方法是使用宏vba快速合并多個工作表,這樣的話短時間內甚至只需幾分鐘便可完成。本文所介紹的技巧將向你說明如何創建這樣一個宏,看看如何使用宏來節省你的寶貴時間。此技巧可以應用于/2007/2010/2013等版本,只是在彈出VBA代碼窗口(窗口、窗口)時會因Excel版本不同而有所差異。此方法支持:被合并的擴展名為“.xls”和“.xlsx”的工作簿、合并中可多次選擇不同文件夾下的工作簿。將需要合并的excel工作簿文件放置在一個文件夾中以便于選擇(如果放于不同文件下,則需要在提示“是否繼續添加其他文件夾中的Excel工作簿文件?”時選擇“是”),這些工作簿總數適宜100個左右或以下,不要求工作簿中只包含一個單獨的工作表,允許部分工作簿包含多個工作表(以電腦配置或者說電腦可用資源為上限vba快速合并多個工作表,沒有固定的值,如果處理過多時excel沒有響應或電腦假死甚至死機時,請減少待合并工作簿的數量),建議在合并前刪除待合并的工作簿中的空工作表。
在該文件夾中,新建立一個新的Excel工作簿文件。打開新建的Excel工作簿文件,按Alt+F11或者將鼠標移動到下方工作表名稱上右鍵,選擇查看代碼。在彈出的代碼編輯窗口中(如下圖)粘貼以下代碼(如果沒有出現直接復制代碼的面板等時,需要按Ctrl+R或點菜單欄中“視圖”中的“工程資源管理器”,再雙擊出現在左上方的“工程-”中的“”,即可打開代碼窗口;宏代碼應粘貼到除外的工作表中):()'',=:=("-2003工作簿文件(*.xls),*.xls",:=True,Title:="請選擇待合并的工作簿文件")()="""沒有選中-2003工作簿文件"=<=()(x)().:=()x=x+:=("工作簿文件(*.xlsx),*.xlsx",:=True,Title:="請選擇待合并的工作簿文件")()="""沒有選中Excel工作簿文件"