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

有時候，您可能需要將多個工作表中的數據收集到一個主工作表中進行合併或執行其他操作（如下方截圖所示），但逐一複製和粘貼內容非常麻煩。那麼，在Excel中有沒有什麼技巧可以快速解決這個問題呢？

使用Consolidate功能從多個工作表收集數據到一個工作表

使用VBA代碼從多個工作表收集數據到一個工作表

使用強大的Combine功能從多個工作表收集數據到一個工作表

使用Consolidate功能從多個工作表收集數據到一個工作表

如果您想在同一工作簿中的多個工作表裡收集數據到一個工作表，可以在Excel中應用Consolidate功能。

1. 在要收集數據的工作簿的新工作表中，點擊數據 > Consolidate。

2. 在Consolidate對話框中，執行以下操作：

(1) 從函數下拉列表中選擇一個您希望在合併數據後執行的操作；

(2) 點擊 選擇每個工作表中您想要收集的區域；

(3) 點擊添加按鈕，將數據區域添加到所有引用列表框中；

(4) 選擇合併數據後使用的標籤，並勾選創建指向源數據的鏈接選項，如果您希望將合併工作表中的數據與源數據相連接。

3. 點擊確定。現在數據已經被收集並總結到一個工作表中。

輕鬆將多個工作表/工作簿合併到一個單一的工作表或工作簿中

在 Excel 中，將多個工作表或工作簿合併到一個工作表或工作簿可能會非常繁瑣，但使用 Kutools for Excel 的合併功能，您可以將數十個工作表/工作簿合併到一個工作表或工作簿中。此外，您只需點擊幾下即可將工作表整合為一個。點擊此處獲取全功能 30 天免費試用！

Kutools for Excel：擁有超過 300 個實用的 Excel 增益功能，可在 30 天內免費試用且無任何限制。

使用VBA代碼從多個工作表收集數據到一個工作表

這裡有一段VBA代碼，可以將當前工作簿中所有工作表的數據收集到一個新工作表中。

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

2. 點擊插入 > 模塊，然後將以下代碼複製並粘貼到模塊腳本中。

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

3. 按F5鍵運行代碼，整個工作簿的所有數據都已收集到名為Combined的新工作表中。

使用強大的Combine功能從多個工作表收集數據到一個工作表

如果您經常需要將工作表合併成一個，我向您介紹一個強大的合併功能——Kutools for Excel的Combine工具，它具有以下四個主要功能：

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

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

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

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

免費安裝 Kutools for Excel後，請按照以下步驟操作：

如果您只想將工作表合併到一個工作表中而不進行任何其他操作，可以按照以下步驟操作：

1. 啟動Excel，點擊Kutools Plus > Combine，會彈出一兩個對話框提醒您一些注意事項，只需點擊確定和是繼續。參見截圖：

2. 點擊確定進入Combine窗口，勾選將多個工作簿中的工作表合併到一個工作表選項。

3. 點擊下一步，然後點擊添加 > 文件/文件夾以添加您要用於合併的工作簿到工作簿列表中。然後轉到 工作表列表，檢查您要從每個工作簿中合併的工作表。

4. 點擊下一步進入最後一步，您可以根據需要指定一些關於合併結果的設置。如果不需要此步驟，可以跳過。

5. 點擊完成並選擇一個文件夾來放置包含合併數據的新工作簿。

6. 點擊保存。現在所有數據已經從跨工作簿的工作表中收集到一個主工作表中。

如果您想跨工作簿合併工作表到一個工作表中，請按照以下步驟操作：

1. 在Combine窗口中，勾選跨多個工作表合併計算值到一個工作表選項。

2. 點擊下一步，並將文件添加到工作簿列表中，然後檢查您要用於合併和計算的工作表。

3. 點擊下一步，然後從函數下拉列表中選擇一種計算方式，並根據需要檢查其他選項。

4. 點擊完成將新工作簿保存到文件夾中。

現在，跨工作簿的工作表已經被合併並計算到一個工作表中。