多表合併是無數不會VBA程式碼的Excel使用者的惡夢，不過自從有了Power Query後，惡夢清醒了——原來這麼簡單啊！只要你會點滑鼠，大概都能學會，下面請看具體操作步驟的圖文演示。

按照上述步驟操作後得如下多表彙總結果

我們工作的時候經常遇到，其他人做的表格需要給另一個人彙總，只有一兩個表格還好，要是有幾十個需要彙總那就很容易出錯，還花時間。

使用宏的話我試了老是出錯，出現部分表格漏彙總，這樣對結果影響很大，相當於白做。

經過長期尋找解決方法，終於找到個好用的外掛。操作簡單，長期用於工作中沒有發現出現彙總漏掉的，操作前必須是所有表格內容格式一致，否則彙總的資料列對不上，舉例彙總同個工作薄裡面的多個工作表步驟如下。

一個工作簿內的多表合併問題，透過Excel的新功能Power Query（Excel2010或Excel2013可到微軟官方下載相應的外掛）可以2步搞定！具體步驟如下：

Step01-從工作簿新建查詢

結果如下：

後續按需要進行整理：

即借用一下你第一張表裡的標題

最後，【關閉並上載】資料即可，如下圖所示：

當源表中有資料變更時，可以直接在結果表裡一鍵重新整理，如下圖所示：

由上可見，透過Excel2016的新功能合併同一個工作簿內的多表資料非常簡單，只需要滑鼠點幾下即可，不需要寫任何的程式碼，並且，所得到的合併結果可以隨著資料來源的更新一鍵重新整理。

【Excel必備基礎小動畫】

【60+函式彙總案例】

【資料透視基礎精選10篇】

【Power Query入門到實戰80篇】

【Power Pivot 基礎精選15篇】

我是大海，微軟認證Excel專家，企業簽約Power BI顧問

讓我們一起學習，共同進步！

工作中我們經常經常遇到多個工作表彙總成一個總表的情況，還在使用複製貼上？VBA門檻太高學不會？其實只需一個技巧，就能輕鬆搞定基礎的多表合併！

如圖所示，我們有4個月的明細資料表存在4個工作表中，我們希望把這4個月的資料合併到彙總表中，並對同一個產品進行合併！

問題場景

a、開啟彙總工作表，選中A1單元格

c、依次選擇4個月明細資料，新增到“所有引用位置”裡面，按確定即可完成合並！

注意事項：標籤位置選擇最左行，最左列

多表資料合併到一個工作表

多表合併是在資料處理中最常見一個要求，但在以前想要實現這個要求都需要大費周章，不是函式公式就是VBA程式碼亦或者SQL語句等，太複雜，不是大神級別的人物沒辦法完成。

但是，在excel2016新增了一個強大的功能 “獲取和轉換”，能夠方便快捷的完成這個多表資料合併要求。全程工具操作，初識excel的人也能掌握。

使用2010和2013的同學可以網上下載安裝power query外掛即可

如下圖，我們需要將1月-5月 5個工作表的資料進行合併，合併成一個新的工作表

但是因為每個工作表都有一行標題，所以標題也被合併進去了，這時候選擇開始選項卡下的“將第一行用作標題” ，然後篩選成本這一列，將“成本”取消勾選

資料合併之後可以看到工作表名稱是日期顯示，可以對它設定自定義格式為“M月”，還有工作表是表格形式的，我們也可以將它轉換為區域

想想，每到月底，各種各樣的報表合併、統計、分析，各種加班加點。。。

都知道，透視表統計分析資料，那是Excel一絕。只是碰到多表合併，很多表親都直接蒙圈！

好吧，這裡有個小技巧，很多人不知道，那就是多重透視表，用起來和透視表一樣，簡單！

按下<Alt>+D，鬆開再按P，看看，透視表嚮導就出來了，這個預設選單上找不到哦！

然後，跟著嚮導，一步一步往下走就OK啦，如下動畫演示：

是不是很簡單啊！

好吧，這裡需要一點點的SQL只是，當然，簡單的彙總，SQL也很簡單，無非就是select語句。

如下方式，建立工作表連線

資料-現有連結-

在連線屬性中，輸入SQL語句，即可輕鬆合併多張工作表。

對於格式相同的多張工作表，也還可以使用SUM彙總求和。

你好，關於Excel中多個工作表合併成一個，應用VBA就可以解決，在VBA編輯器裡輸入如下程式碼：

Sub 合併工作表()

Dim ws As Worksheet, rngs As Range, cell As Range

Columns("a:c").ClearContents

[a1] = "編號": [b1] = "產品": [c1] = "部門"

For Each ws In Worksheets

If ws.Name <> Sheet1.Name Then

Set rngs = ws.Range("a2", ws.[b1].End(xlDown))

Set cell = Cells(Rows.Count, 1).End(xlUp)(2, 1)

rngs.Copy cell

cell(1, 3).Resize(rngs.Rows.Count, 1) = ws.Name

End If

Next

End Sub

具體操作步驟如下圖所示：

01 Excel VBA

1、在“彙總工作簿”中，新建一個sheet頁。

2、在新建的sheet標籤上單擊右鍵，選擇“檢視程式碼”

3、在開啟的VBA編輯視窗中貼上以下程式碼：

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

4、關閉該VBA編輯視窗

5、在Excel中，開發工具---宏,選“合併當前工作簿下的所有工作表”,然後“執行”。

6、等待執行，然後整個彙總步驟就完成了。

2、釋出給員工填寫。

3、後臺自動彙總資料，生成總表，管理員隨時可以檢視。

可以直接將Excel表格匯入進表單，簡單拖拽，即可完成彙總！

在表單中收集到的資料，可透過儀表盤來進行檢視、分析和處理。