如何快速把多個(gè)excel表合并成一個(gè)excel表？

看到Excel多表合并，其實(shí)常見(jiàn)的有2種場(chǎng)景

場(chǎng)景一：多個(gè)Excel文件需要合并為1個(gè)Excel文件（多個(gè)工作簿合并為1個(gè)工作簿）

場(chǎng)景二：1個(gè)Excel文件種有多個(gè)工作表，需要合并為1個(gè)工作表

首先來(lái)看下，場(chǎng)景一（多個(gè)Excel文件合并為1個(gè)文件），都有哪些方法可以實(shí)現(xiàn)？

場(chǎng)景描述：如圖所示，在文件夾中，有4個(gè)Excel文件，每個(gè)Excel文件的數(shù)據(jù)格式都一致，需要把4個(gè)Excel文件合并到1個(gè)Excel文件中。

每個(gè)工作簿中的內(nèi)容格式都一樣，為了區(qū)分，我把工作簿1中的 位置 數(shù)據(jù)，標(biāo)為了“工作簿1”；工作簿2中的數(shù)據(jù)標(biāo)為了“工作簿2”...以此類推。

下面雷哥推薦幾種方法來(lái)實(shí)現(xiàn)多個(gè)Excel文件合并為1個(gè)文件

方法一：PowerQuery

Step1：?jiǎn)螕?【數(shù)據(jù)】- 【新建查詢】 - 【從文件】- 【從文件夾】

Step2：?jiǎn)螕?【瀏覽】，選擇文件夾路徑

Step3：選擇【合并并加載】

最終的效果如圖所下圖所示。自動(dòng)增加了

Source.Name

數(shù)據(jù)列，可以很方便看到數(shù)據(jù)來(lái)自于哪個(gè)工作簿

方法二：使用CMD命令，1s搞定合并

Step1：需要把文件格式修改為 csv文件格式。打開(kāi)文件，另存為csv文件即可

Step2：在文件所在路徑，按【shift】+右鍵，點(diǎn)擊【此處打開(kāi)命令窗口】，輸入

copy *.csv out.csv， 即把該路徑下所有的csv文件合并到out.csv文件中。

下面來(lái)看下，場(chǎng)景二（多個(gè)Excel工作表合并為1個(gè)Excel工作簿），都有哪些方法可以實(shí)現(xiàn)？

場(chǎng)景描述：如圖所示，1個(gè)excel文件中，有多個(gè)工作表，需要合并到1個(gè)工作表中。

方法1：PowerQuery法

Step1：?jiǎn)螕?【數(shù)據(jù)】- 【新建查詢】 - 【從工作簿】

Step2：選擇需要合并的工作表

Step3：在追加查詢中，單擊【將查詢追加為新查詢】

Step4：選擇所需的工作表

Step5：?jiǎn)螕絷P(guān)閉并上載

最終的效果如圖所示

方法2：使用宏

Step1：按【Alt】+【F11】

Step2：輸入代碼，并單擊三角形圖標(biāo)運(yùn)行

Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A60000).End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "小主，數(shù)據(jù)合并結(jié)束啦！", vbInformation, "提示" End Sub

運(yùn)行效果如下圖所示，后續(xù)我們刪去多余的標(biāo)題行即可~

方法三：插件法 - 最簡(jiǎn)單

Step1：使用【方方格子】插件，單擊【合并工作表】

Step2：選擇匯總區(qū)域后，單擊確定

最終的效果如下

還是插件最簡(jiǎn)單，分分鐘搞定哈~

創(chuàng)作不易，歡迎大家溝通交流，如果感覺(jué)不錯(cuò)，歡迎點(diǎn)贊支持雷哥。謝謝