跳到主要內容

如何在Excel中將多個工作表中的數據收集到主表中?

在某些時候,您可能需要將多個工作表中的數據收集到一個主工作表中,以進行合併或其他操作,如下圖所示,但是要逐個複制和粘貼內容很麻煩,是否有任何技巧可以快速解決? Excel?

使用合併功能將多張紙中的數據收集到一張

使用VBA代碼將多張紙中的數據收集到一張

強大的合併功能將多張紙中的數據收集到一張好主意3


使用合併功能將多張紙中的數據收集到一張

如果要將數據從多個工作表收集到同一工作簿的一個工作表中,則可以在Excel中應用合併功能。

1.在要從工作表中收集數據的工作簿的新工作表中,單擊 數據 > 整合.
doc將工作表收集到一個1

2。 在裡面 Consolidate 對話框中,請執行以下操作:

(1在合併數據後選擇要執行的一項操作 功能 下拉列表;

(2點擊 文檔選擇按鈕 選擇要收集的每張紙的範圍;

(3點擊 Add 按鈕將數據范圍添加到 All references 列錶框;

(4合併數據後檢查使用的標籤,並檢查 Create links to source data 如果要鏈接合併表中的數據與源數據,請選擇此選項。
doc將工作表收集到一個2

3。 點擊 OK。 現在,數據已收集並彙總到一張紙中。
doc將工作表收集到一個3


輕鬆地將多個工作表/工作簿合併為一個工作表或工作簿

在Excel中,將多個工作表或工作簿組合成一個工作表或工作簿可能很麻煩,但是使用 結合 在Kutools for Excel中,您可以將數十個工作表/工作簿合併到一個工作表或工作簿中,也可以通過單擊幾下將工作表合併為一個工作表。  點選取得全功能 30 天免費試用!
合併表
 
Kutools for Excel:擁有300多個便捷的Excel加載項,可以在30天內免費試用。

使用VBA代碼將多張紙中的數據收集到一張

這是一個VBA代碼,可以從當前工作簿的新工作表中的所有工作表中收集數據。

1。 按 Alt + F11 啟用 Microsoft Visual Basic for Applications 窗口。

2。 點擊 Insert > Module,然後將以下代碼複製並粘貼到 Module 腳本。

VBA:將工作表中的所有數據收集到一個。

Sub Combine()
'UpdatebyExtendoffice20180205
    Dim I As Long
    Dim xRg As Range
    On Error Resume Next
    Worksheets.Add Sheets(1)
    ActiveSheet.Name = "Combined"
   For I = 2 To Sheets.Count
        Set xRg = Sheets(1).UsedRange
        If I > 2 Then
            Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
        End If
        Sheets(I).Activate
        ActiveSheet.UsedRange.Copy xRg
    Next
End Sub
doc將工作表收集到一個4

3。 按 F5 鍵運行程式碼,整個工作簿的所有資料都已收集在新的工作表中。
doc將工作表收集到一個5


使用強大的功能將多張表中的資料收集到一張表中 Combine 功能

如果您經常需要將紙張合併為一張,我為您介紹一種強大的合併功能,它是 Excel的Kutools結合 實用程式具有以下四個主要功能:

將工作簿中的多個工作表合併為一個工作表

將所有相同名稱的工作表合併到一個工作表中

將工作簿中的多個工作表合併到一個工作簿中

將多個工作簿中的值合併併計算到一個工作表中

Excel的Kutools, 與以上 300 方便的功能,使您的工作更加輕鬆。 

免費安裝 Kutools for Excel,請執行以下操作:

如果你只是想 結合 將一張紙合併成一張紙而不進行任何其他操作,您可以執行以下操作:

1.啟用Excel,單擊 Kutools Plus > Combine,會跳出一兩個對話框提醒您一些注意事項,點擊即可 OK 接著說。 看截圖:

2。 點擊 OKCombine 窗口,檢查 Combine multiple worksheets from workbook into worksheet 選項。

3。 點擊 Next,然後單擊 Add > File / Folder 新增工作簿,您將用於合併到 Workbook list。 然後去 Worksheet list 檢查每個工作簿中要合併的工作表。

4。 點擊 Next 若要轉到最後一步,您可以根據需要指定有關組合結果的一些設定。 如果不需要這一步。

5。 點擊 Finish 並選擇一個資料夾來放置合併工作表資料的新工作簿。
doc將工作表收集到一個13

6。 點擊 節省。 現在,所有資料都已從工作簿中的工作表收集到一張主工作表中。
doc將工作表收集到一個14

如果你想 鞏固 將跨工作簿的工作表合併為一個,請執行下列操作:

1。 在裡面 Combine 窗口,檢查 Consolidate and calculate values across multiple worksheets into one worksheet 選項。

2。 點擊 Next,並將文件添加到 Workbook list,然後檢查用於組合和計算的工作表。

3。 點擊 Next,然後從中選擇一項計算 Function 下拉列表,然後根據需要檢查其他選項。

4。 點擊 Finish 將新工作簿儲存到資料夾中。

現在,工作簿中的工作表已合併併計算為一張工作表。
doc將工作表收集到一個18


Kutools for Excel:Excel中必須具備的300個函數, 從這裡免費試用30天。

最佳辦公生產力工具

🤖 Kutools 人工智慧助手:基於以下內容徹底改變數據分析: 智慧執行   |  生成代碼  |  建立自訂公式  |  分析數據並產生圖表  |  呼叫 Kutools 函數...
熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

產品描述


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the VBA code - it works well! How can I extend the code so that when the sheets are combined that they are combined as values? I am running into some issues with circular reference issues when I try to interact with the combined sheet.
This comment was minimized by the moderator on the site
The VBA code works perfectly! , how can i edit it so it skips the first page in my workbook and merges the remaining pages?
This comment was minimized by the moderator on the site
Hi,
I'm trying to accomplish the following:
Get data from multiple tabs in a specific cell range (B3-E169).
Data would be compiled in columns...i.e., column B copies into column B on new spreadsheet, column C copies into column C on new spreadsheet, etc.
If there are more than two blank columns in B, stop & move onto next worksheet and get same data.
The result that I'm trying to get is a material list from different categories (hence the different tabs).

This is how I think it should work:
Lookup WS1 column B3-B169.
If two blank columns, Lookup WS2 column B3-B169,
If two blank columns, Lookup WS3 column B3-B169, etc.

WS2 should skip a space/column & come in underneath WS1.
WS3 should skip a space/column & come in underneath WS2,.etc.

Repeat or columns C, D & E
This comment was minimized by the moderator on the site
hmm your VBA code removes the last row from individual sheet when combined .. any idea how to solve this issue?
This comment was minimized by the moderator on the site
any answer for this?
This comment was minimized by the moderator on the site
How do you make your VBA overwrite the compiled data onto the same master list, rather than add a new sheet?
This comment was minimized by the moderator on the site
De que forma se puede obtener solo el valor de las hojas y llevarla a la hoja que se va a resumir todo, por ejemplo, en caso de que una hoja de las que se van a combinar exista una celda calculada o que dependa de otra hoja, por eso pregunto si se puede llevar solo los valores.
This comment was minimized by the moderator on the site
Sorry, could you repeat your quetion in English?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations