有很多方法可以將多個工作表合併成一份，這裡介紹兩種，不需要VBA編寫程式碼哦。使用Excel且Excel支援power query的請參考方法1，其他朋友請參考方法2。

步驟1：如圖，新建查詢，選擇從“工作簿”匯入，並選擇需要合併的工作簿。

這樣這些工作表就都合併到一個工作表中啦。

步驟1：新建一個空白工作表，在第一個單元格輸入“=1月工作表單元格A1”，然後向右拖動獲取1月工作表中第一行的資料，接著將公式中的“=”號修改成“ss”，然後向下填充到第9行（1月工作表有9行資料）。

步驟2：複製A1-A9，將這些資料中的“1月”替換成“2月”、“3月”等。

步驟3：全選所有資料，將“ss”替換成“=”，這樣就將所有工作表的資料彙總到一起啦。

Excel工作簿裡面的sheet表格很多，如何快速貼上成一張表格？介紹2個神器：

Power Query，在2016的版本中，直接放在了選項卡里，可直接呼叫，而10和13版本需要以外掛形式單獨下載，然後安裝才能用。所以建議大家選用2016版本。

案例：表格有7個部門的基本情況表，要求是將7個工作表合併到一個工作表。

①【資料】→【獲取資料】→【自檔案】→【從工作簿】→選擇需要合併工作表的工作簿→在導航器中勾選【選擇多項】→勾選需要合併的工作表→再點右下角的【編輯】

②【追加查詢】→【將查詢追加為新查詢】

④現在可以看到左邊自動添加了一個APPEND1的查詢，所有記錄都已合併到這個查詢，但身份證號列顯示不對，顯示的是數值格式，點選列標題左邊的12這個數字，選擇文字。

⑤最後，點表格左上角的表格圖表，點選【複製整個表】→關閉Power Query，關閉時提示我們是否保留更改，可以不保留 →貼上合併後的表到新的工作表。

所有部門的資訊全部合併到一個表，從編號就可以看出總共有96條記錄，全部合併了！

操作步驟：

1、匯入VBA模組：新建一個EXCEL文件，按ALT+F11 調出VBA 編輯器 →在工程視窗右擊選擇【匯入檔案】→選擇VBA 模組檔案，合併工作表和工作簿.bas）→關閉VBA 編輯器。

2、合併工作簿：【開發工具】→【宏】→【合併工作簿】→【執行】→選擇需要合併的工作簿→我們選擇需要合併的所有工作簿，點【開啟】，所有工作簿裡面的工作表都放到了新建的文件裡

3、合併工作表：刪除sheet1，在進行工作表合併之前，一定要把多餘的工作表刪除，確保只保留需要合併的工作表→點【開發工具】→【宏】→【合併工作表】→【執行】，會提示當前工作簿下的所有工作表已合併完畢速度比前面的Power Query更快。

附影片教程：

合併計算

PowerQuery

SQL

多重合並計算區域透視表

合併計算，可以將多張工作表中的多個區域按行列標題進行合併彙總，如下效果：

實現過程，如下動畫演示：（為了演示方便，我只在一個Sheet中合併多個工作表區域）

透過簡單的SQL語句，也能輕鬆合併彙總多張工作表的資料，配上透視表，更是可以直接統計分析資料，很是方面。

別被SQL嚇到了，其實，很簡單，也就是一個Select語句，就算記不住，依貓畫虎也就行了，效果如下：

實現過程，如下動畫演示：

多重透視表，和普通透視表有點小不同。

普通透視表可以直接從選單插入-透視表；而，這個多重透視表，則，需要按下<Alt>+D，鬆開，再按P，在嚮導中，選擇多重合並計算區域來完成。

效果如下所示：

實現過程動畫演示如下：

這個強大的資料處理工具，放到最後來介紹，壓軸。

以上的幾種方法，在PowerQuery面前，那都是小兒科了，操作起來也很簡單，如下所示：

選擇需要合併彙總的工作表

使用追加查詢，將所有的工作表資料合併到一起

最後，關閉並上載到Excel中，這就完成了奪標合併過程。

看了大家的回答，其實兩步就能解決多個表格的彙總。1、第一步

在原有表格基礎上新建一個表。命名“data”

Sub 表格合併()

Dim rng As Range

Dim B As Integer

Dim c As Integer

Worksheets(1).Select

Rows("1:1").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Sheets("data").Select

Set rng = Sheets("data").Range("A65536").End(xlUp)

B = rng.Row

Sheets("data").Cells(B, 1).Select

ActiveSheet.Paste

c = Worksheets.Count

For i = 2 To c - 1

Worksheets(i).Select

Rows("2:2").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Sheets("data").Select

Set rng = Sheets("data").Range("A65536").End(xlUp)

B = rng.Row

Sheets("data").Cells(B + 1, 1).Select

ActiveSheet.Paste

Next

MsgBox "已合併完畢"

End Sub