可以使用power query進行資料彙總

第一步

在資料功能組下找到新建查詢，匯入Excel

第二步

在導航器中選擇多選，然後勾選需要彙總的表格

當勾選完成後會進入power query的主介面，這就是我進行資料彙總的主戰場了

第三步

將其他班級資料追加進一班，

第四步

將一班名字雙擊更改為彙總，選擇關閉並上載

過後會進入如下介面

第五步

https://m.toutiaocdn.com/item/6642474720186860040/?iid=55298008177&app=news_article&timestamp=1546951284&group_id=6642474720186860040&tt_from=copy_link&utm_source=copy_link&utm_medium=toutiao_ios&utm_campaign=client_share

在excel表格中，如何將一個工作簿中十張工作表的資料統一歸整到同一張表上？

對於這個問題，如果是高手的話，直接VBA，如果是我的話，還是去找些免費工具箱，直接用了，又快又方便！

最終效果如下圖：

下載工具箱

這個工具箱就是Excelhome的，怎麼下載，為避免做廣告的嫌疑，請直接度娘，安裝的話要注意軟體版本，適用於Windows平臺中的32位或64位的Excel 2007\2010\2013和2016，需要

.NET

支援

安裝成功後，顯示如下

2. 把你需求的表放到待合併區

3.三個選項

忽略起始的行，如這裡填寫1，就是所只保留第一表的第一行，其他工作的第一行不顯示

如下圖

不勾選效果如下：

剩下二個選項，就是轉換速度的問題，如果把公式轉換成數值，不要格式，速度就非常快的

若要彙總和報告多個單獨工作表的結果，可以將每個單獨工作表中的資料合併計算到一個主工作表中。這些工作表可以與主工作表在同一個工作簿中，也可以位於其他工作簿中。對資料進行合併計算就是組合資料，以便能夠更容易地對資料進行定期或不定期的更新和彙總。例如，如果您有一個用於每個地區辦事處開支資料的工作表，可使用合併計算將這些開支資料合併到公司的 開支工作表中。這個主工作表中可以包含整個企業的銷售總額和平均值、當前的庫存水平和銷售額最高的產品。要對資料進行合併計算，請使用“資料”選項卡上“資料”組中的“合併計算”命令。按位置進行合併計算——按同樣的順序排列所有工作表中的資料並將它們放在同一位置中

1、在每個單獨的工作表上設定要合併計算的資料。如何設定資料·確保每個資料區域都採用列表(列表：包含相關資料的一系列行，或使用“建立列表”命令作為資料表指 定給函式的一系列行。)格式：第一行中的每一列都具有標籤，同一列中包含相似的資料，並且在列表中沒有空行或空列。·將每個區域分別置於單獨的工作表中。不要將任何區域放在需要放置合併的工作表中。·確保每個區域都具有相同的佈局。·命名每個區域：選擇整個區域，然後在“公式”選項卡的“命名單元格”組中，單擊“命名單元格區域”旁邊的箭頭，然後在“名稱”框中鍵入該區域的名稱。

2、在包含要顯示在主工作表中的合併資料的單元格區域中，單擊左上方的單元格。註釋確保在該單元格右下側為合併的資料留下足夠的單元格。“合併計算”命令根據需要填充該區域。

3、在“資料”選項卡上的“資料工具”組中，單擊“合併”。

這個問題用VBA程式碼，簡單二步就可以解決。

一、表格準備

解釋下：1、範圍限制：不管是10個，20個，還是100個表格，前提條件是，所有的表格加起來的行數不能超過1048576行。

2、在原有基礎上建立個新表，命名為：“data",這個表就是最終的彙總表。

二、實際操作

1、選擇”data"這個表，按ALT+F11, 調出VBA

2、按上圖所示，複製貼上以下程式碼

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

3、關閉VBA對話方塊，在"data"表格上按AIT+F8,執行程式碼“表格合併”

以上便可實現最終的表格合併了

三、最終效果

推薦您使用VBA程式碼。

Option ExplicitSub start()Dim targetSheet As StringLet targetSheet = Application.inputbox("請輸入儲存彙總結果的Sheet名稱")Call gartherSheet(targetSheet)End SubPublic Function gartherSheet(targetSheet As String)Dim sht As WorksheetSheet1.Range(Sheet1.Range("A1"), Sheet1.Range("A1").End(xlToRight)).Copy Sheets(targetSheet).Range("A1")For Each sht In ThisWorkbook.WorksheetsIf sht.Name <> targetSheet Thensht.Range("A1").CurrentRegion.Offset(1, 0).Copy Sheets(targetSheet).Range("A65536").End(xlUp).Offset(1, 0)End IfNextEnd Function

使用指南：

①需要新建一個sheet存放彙總結果

②表中無論有多少個sheet都可以被彙總

有問題可以隨時聯絡我~

這種情況下，起碼有以下4種方式來快速完成：

1、PQ，前面幾位大神都介紹過了，2016以上版本整合的PQ，處理這類多表彙總，小菜一碟；

2、多重計算區域透視表，不管哪個Excel版本，多重計算區域透視表，都可以用，很簡單；

3、SQL獲取多張工作表，需要了解幾個簡單的SQL命令；

4、合併計算，也可以，沒有以上3中方法靈活；

01 PowerQuery方式

微軟這樣說明PQ：“Power Query 是一種資料連線技術，可用於發現、連線、合併和最佳化資料來源以滿足分析需要。 ”

PQ已經整合到2016版本中，2010和2013版本，需要到官網下載PQ元件。

用在本例中，那就是，透過PQ，搜尋題主所說的10張表格，整理後，歸整到一起！

這裡，我就舉個例子，演示下PQ的基本用法：

①選單選擇“資料”→“獲取資料”→“來自檔案”→“從工作簿”→選擇具體工作簿→開啟；

②PQ導航器中，勾選“選擇多項”→勾選工作表→“轉換”（如果只是要簡單的規整到一起，可直接載入資料，示例中，我要新增對每張工作表的標識）；

④選單選擇“開始”→“追加查詢”，在追加面板，把幾張工作表的資料，都追加到一張工作表中；

⑤選單選擇“開始”→“關閉並上載至”，最後，根據實際需要選擇要把結果匯入到“表”或者“透視表”；

02 多重計算區域透視表

沒有PQ，那也沒關係，Excel中，還有一個很好用的功能元件，叫做“多重計算區域透視表”，不過，啟動方法比較特殊，需要按下<Alt>+D，鬆開按鍵，再按P，這其實就是透視表嚮導，10以後版本是隱藏了的，可以透過設定自定義功能區新增該向導：

選單“開始”→“選項”→“自定義功能區”→找到並新增“透視表和透檢視嚮導”；

透過多重計算區域透視表歸整多張工作表，步驟如下：

①開啟需要歸整的工作簿；

②按下<Alt>+D，鬆開按鍵，再按P，開啟透視表嚮導；

④如此，透視表便會將多張工作表的資料歸整到一張工作表中。

03 SQL彙總多張工作表

Excel中，SQL不止可以用於獲取資料庫，也可以獲取檔案中的資料，步驟如下：

①選單選擇“資料”→“現有連結”→面板中選擇“瀏覽更多”→選擇需要歸整的工作簿；

②選擇目標資料的匯入方式，是“表”還是“透視表”→“屬性”→“定義”→在命令文字框中輸入Select語句

04 合併計算

合併計算，顧名思義，就是合併多張表格進行計算；

不過，該方法較為不靈活，可以瞭解下，不詳細介紹了

之前介紹過比較簡單的合併計算方式，最近接觸了些VBA和宏命令之後，感覺重新認識了Excel的功能，這次推薦下Excel合併新方法，使用VBA快速實現多工作表資料合併。

第一步：建立合併程式碼；第二步：新建命令並執行；第三步：設定儲存格式。

建立合併程式碼

以下圖為例，選擇的是4個表格資料，

1，建立合併程式碼，右鍵選擇【檢視程式碼】；

2，在彈出框中輸入具體程式碼：

Sub 合併()Dim x As Integer, K As IntegerSheets("合併").Cells.ClearFor x = 1 To 4 K = Application.CountA(Sheets("合併").[a:a]) + 1 Sheets(x).UsedRange.Copy Sheets("合併").Cells(K, 1)Next xEnd Sub

上述程式碼，看不懂不理解也沒關係，直接複製根據你的需求，修改其中的資料即可：

①“For x = 1 To 4”，1和4代表的迴圈數，你有多少表格迴圈多少次即可，比如我的是4張資料表，迴圈數就為4；

②“Sheets("合併")”，代表你的表格中存在著一個名為“合併”的表格，如你的表格名字為其他的，請務必修改。

2，在彈出框中在“指定宏”對話方塊中選擇“sheet5.合併”，單擊“確定”；

儲存格式

一般預設的儲存格式不能使用宏，此時在儲存時更改【儲存型別】為啟用宏的工作簿。

操作步驟：

1.首先回到彙總EXCEL資料資料夾目錄下，新建一個名為彙總資料的EXCEL檔案與資料來源並列關係。

2. 開啟彙總資料Excel檔案，在Power Query選項下的從檔案--從資料夾--並瀏覽找到桌面上的資料來源資料夾。

4.並在新增列--新增自定義列--輸入新列名提取資料--自定義列公式--Excel.Workbook([Content],true)。

6.單擊提取資料列--右上角--從彈出的對話方塊中--選擇--擴充套件--並將使用原始列名作為字首的勾取消--確定。

7. 提取資料處篩選Sheet1。

10. 修改日期資料型別，並將各標題中提取資料.Data.刪掉.

11. 然後在開始--關閉並上載--關閉並上載至表--上載資料到新工作表。

12. 最後大功告成。且能實現了動態更新效果。

for each sheet

for i=1 to A列最大行

複製資料區域到彙總表裡制定區域

next

next