方法/步驟開啟一個Excel文件，顯示有三個Sheet1.三個Sheet分別的內容2.點選Sheet欄後面的【+】3.建立一個叫“合併”的Sheet4.右鍵“合併”Sheet選擇【檢視程式碼】5.開啟VBA編輯視窗6.輸入以下程式碼：Sub合併當前工作簿下的所有工作表()Application.ScreenUpdating=FalseForj=1ToSheets.CountIfSheets(j).Name<>ActiveSheet.NameThenX=Range("A65536").End(xlUp).Row+1Sheets(j).UsedRange.CopyCells(X,1)EndIfNextRange("B1").SelectApplication.ScreenUpdating=TrueMsgBox"當前工作簿下的全部工作表已經合併完畢!",vbInformation,"提示"EndSub7.點選【執行】選擇【執行子過程/使用者窗體】8.彈提示視窗9.回到“合併”Sheet就能看見成功合併

使用VBA

示例檔案如下圖所示：

按鍵盤上面的Alt+F11，把程式碼貼上進去，然後點執行就可以了；

操作步驟

附程式碼：

Sub 合併當前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "當前工作簿下的全部工作表已經合併完畢！", vbInformation, "提示"

End Sub

看到Excel多表合併，其實常見的有2種場景

場景一：多個Excel檔案需要合併為1個Excel檔案（多個工作簿合併為1個工作簿）

場景二：1個Excel檔案種有多個工作表，需要合併為1個工作表

首先來看下，場景一（多個Excel檔案合併為1個檔案），都有哪些方法可以實現？

場景描述：如圖所示，在資料夾中，有4個Excel檔案，每個Excel檔案的資料格式都一致，需要把4個Excel檔案合併到1個Excel檔案中。

每個工作簿中的內容格式都一樣，為了區分，我把工作簿1中的 位置 資料，標為了“工作簿1”；工作簿2中的資料標為了“工作簿2”...以此類推。

下面雷哥推薦幾種方法來實現多個Excel檔案合併為1個檔案

方法1：PowerQuery

Step1：單擊 【資料】- 【新建查詢】 - 【從檔案】- 【從資料夾】

Step2：單擊 【瀏覽】，選擇資料夾路徑

Step3：選擇【合併並載入】

最終的效果如圖所下圖所示。自動增加了

Source.Name

資料列，可以很方便看到資料來自於哪個工作簿

方法2：使用CMD命令，1s搞定合併

Step1：需要把檔案格式修改為 csv檔案格式。開啟檔案，另存為csv檔案即可

copy *.csv out.csv， 即把該路徑下所有的csv檔案合併到out.csv檔案中。

下面來看下，場景二（多個Excel工作表合併為1個Excel工作簿），都有哪些方法可以實現？

場景描述：如圖所示，1個excel檔案中，有多個工作表，需要合併到1個工作表中。

方法1：PowerQuery法

Step1：單擊 【資料】- 【新建查詢】 - 【從工作簿】

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

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

Step4：選擇所需的工作表

Step5：單擊關閉並上載

最終的效果如圖所示

方法2：使用宏

Step1：按【Alt】+【F11】

Step2：輸入程式碼，並單擊三角形圖示執行

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 "小主，資料合併結束啦！", vbInformation, "提示" End Sub

執行效果如下圖所示，後續我們刪去多餘的標題行即可~

方法3：外掛法 - 最簡單

Step1：使用【方方格子】外掛，單擊【合併工作表】

Step2：選擇彙總區域後，單擊確定

最終的效果如下

還是外掛最簡單，分分鐘搞定哈~