工作中，多個工作簿的數據合併至一個工作溥中是最痛苦的，使用複製粘貼太耗費時間，還容易出錯
今天教大家3個方法，輕鬆解決合併工作簿的問題
1、csv文件，使用bat代碼法
這種方法是有限制的，必須是csv格式的Excel文件，很多公司軟件裡面導出的格式是這種的CSV格式的就可以使用此方法
新建一個文本文檔，然後輸入代碼copy *.csv 合併.csv，關閉保存重命名該文本文檔，將文件的後綴txt更改成bat格式雙擊運行這個bat文件，便自動的生成了一個新的合併.csv文件合併的這個CSV文件就把所有單個的匯聚在一塊，如果首行都有標題行，可以進行篩選刪除再處理。
2、普通Excel文件，vba代碼法
上面的方法是對於csv格式的文件才能使用的，如果是普通的xls或xlsx格式的話，就不適用了，這個時候，可以使用VBA代碼法
新建一個工作表，然後在開發工具選項卡下，點擊VisualBasic，然後輸入一段代碼點擊開發工具上方的宏，運行這段宏，便可以彙總所有的數據了
其中的代碼如下：
Sub 合併目錄所有工作簿全部工作表()Dim MP, MN, AW, Wbn, wnDim Wb As WorkbookDim i, a, b, d, c, eApplication.ScreenUpdating = FalseMP = ActiveWorkbook.PathMN = Dir(MP & "\" & "*.xls")AW = ActiveWorkbook.NameNum = 0e = 1Do While MN <> ""If MN <> AW ThenSet Wb = Workbooks.Open(MP & "\" & MN)a = a + 1With Workbooks(1).ActiveSheetFor i = 1 To Sheets.CountIf Sheets(i).Range("a1") <> "" ThenWb.Sheets(i).Range("a1").Resize(1, Sheets(i).UsedRange.Columns.Count).Copy .Cells(1, 1)d = Wb.Sheets(i).UsedRange.Columns.Countc = Wb.Sheets(i).UsedRange.Rows.Count - 1wn = Wb.Sheets(i).Name.Cells(1, d + 1) = "表名".Cells(e + 1, d + 1).Resize(c, 1) = MN & wne = e + cWb.Sheets(i).Range("a2").Resize(c, d).Copy .Cells(.Range("a1048576").End(xlUp).Row + 1, 1)End IfNextWbn = Wbn & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMN = DirLoopRange("a1").SelectApplication.ScreenUpdating = TrueMsgBox "共合併了" & a & "個工作薄下全部工作表。如下：" & Chr(13) & Wbn, vbInformation, "提示"End Sub
3、使用PQ方法（適用於Excel2016及以上）
pq法不需要使用長長的代碼，製作的過程如下
在數據選項卡下，新建查詢，從文件，從文件夾，選中存放數據的文件夾，加載編輯在彈出的PQ查詢器中，添加列，自定義列，輸入公式：Excel.Workbook([Content],true)在彈出的自定義列中進行篩選，只選擇data繼續篩選，這次所有的列都進行保留在菜單中，關閉並上載至Excel表格，刪除不需要的數據區域即可
下次再遇到需要合併工作簿的時候，不用去複製粘貼了，這3個方法，你更喜歡用哪個方法呢？動手試試吧~
閱讀更多 excel我幫您 的文章
