在 Excel 中合併重複行並加總其數值（簡單技巧）

在 Excel 中，經常會遇到包含重複資料的資料集。通常，您面對的主要挑戰是如何高效合併這些重複列，同時加總對應欄位中的數值（如以下截圖所示）。本文將深入探討幾種實用方法，協助您整合重複資料並彙總相關數值，有效提升 Excel 工作表的清晰度與實用性。

合併重複行並加總數值

• 使用「彙總」功能
• 透過強大功能－Kutools
• 透過資料透視表
• 透過 VBA 程式碼

使用「合併彙算」功能合併重複行並加總數值

「合併彙算」是 Excel 中整合多個工作表或資料列的實用工具，能快速輕鬆地合併重複項目並加總對應數值。請依照下列步驟操作：

步驟 1：選取目的儲存格

選擇您希望合併彙總資料顯示的位置。

步驟 2：開啟「合併彙算」功能並設定彙算選項

1. 按一下「資料」>「彙總」，請參閱截圖：
   
2. 在「彙總」對話方塊中：
   • （1.）從「函數」下拉式清單中選取「加總」。
   • （2.）按一下，即可在「參照」方塊中選取您要彙總的範圍；
   • （3.）勾選「標籤位置」中的「首行」與「最左列」選項；
   • （4.）最後，點擊「確定」按鈕。
   • 

結果：

Excel 會合併第一欄中發現的所有重複項目，並加總其相鄰欄位中的對應數值（如以下截圖所示）：

使用 Kutools 合併重複行並加總數值

若您已安裝「Kutools for Excel」，其「高級合併行」功能可輕鬆合併重複資料列，並提供加總、計數、平均等多種計算選項。此外，此功能不僅支援單一關鍵欄位，更能同時處理多個關鍵欄位，大幅簡化複雜的資料整合工作。

安裝「Kutools for Excel」後，選取資料範圍，然後點擊「Kutools」>「合併與拆分」>「進階合併列」。

在「高級合併行」對話方塊中，請進行下列設定：

1. 按一下您要據以合併重複項目的欄位名稱，此處我會按一下「產品」，然後在「作業」欄位的下拉列表中選取「主鍵」；
2. 接著，選取您要加總數值的欄位名稱，然後在「作業」欄位的下拉列表中選取「加總」；
3. 至於其他欄位，您可以選擇所需的操作，例如使用特定分隔符合併數值，或執行某種計算；（若只有兩欄，此步驟可省略）
4. 最後，您可以預覽合併結果，再點擊「確定」按鈕。
5. 

結果：

現在，關鍵列中的重複值已成功合併，其他對應數值也已加總（如以下截圖所示）：

使用資料透視表合併重複行並加總數值

Excel 中的資料透視表提供了一種動態方式，讓您輕鬆重新排列、分組並彙總資料。當您面對包含大量重複項目的資料集，且需要加總對應數值時，這項功能尤其實用。

步驟 1：建立資料透視表

1. 選取數據區域，接著切換至「插入」選項卡，並點擊「資料透視表」（請參閱截圖）。
   
2. 在彈出的對話方塊中，選擇您要放置資料透視表報表的位置——可依需求放入新工作表或現有工作表中，然後點擊「確定」。請參閱截圖：
   
3. 現在，資料透視表已插入至您所選的目的儲存格中。請參閱以下截圖：
   

步驟 2：設定資料透視表：

1. 在「資料透視表欄位」窗格中，將包含重複項目的欄位拖曳至「列」區域，即可輕鬆將重複項目分組。
2. 接下來，請將包含欲加總數值的欄位拖曳至「值」區域。Excel 會預設對這些數值進行加總。請參閱下方示範：
3. 

結果：

資料透視表已將重複項目合併並加總其數值，呈現清晰簡明的分析視圖。請參閱截圖：

使用 VBA 程式碼合併重複行並加總數值

若您對 VBA 程式碼感興趣，本節將提供一段實用的 VBA 程式碼，可自動整合重複的資料列，並加總其他欄位中的對應數值。請依照下列步驟操作：

步驟 1：開啟 VBA 模組編輯器並複製程式碼

1. 在 Excel 中按住 Alt + F11 鍵，即可開啟「Microsoft Visual Basic for Applications」視窗。
2. 點擊「插入」>「模組」，並將下列程式碼貼到「模組」視窗中。
   VBA 程式碼：合併重複行並加總數值

   Sub CombineDuplicateRowsAndSumForMultipleColumns()
   'Update by Extendoffice
       Dim SourceRange As Range, OutputRange As Range
       Dim Dict As Object
       Dim DataArray As Variant
       Dim i As Long, j As Long
       Dim Key As Variant
       Dim ColCount As Long
       Dim SumArray() As Variant
       Dim xArr As Variant
       Set SourceRange = Application.InputBox("Select the original range:", "Kutools for Excel", Type:=8)
       If SourceRange Is Nothing Then Exit Sub
       ColCount = SourceRange.Columns.Count
       Set OutputRange = Application.InputBox("Select a cell for output:", "Kutools for Excel", Type:=8)
       If OutputRange Is Nothing Then Exit Sub
       Set Dict = CreateObject("Scripting.Dictionary")
       DataArray = SourceRange.Value
       For i = 1 To UBound(DataArray, 1)
           Key = DataArray(i, 1)
           If Not Dict.Exists(Key) Then
               ReDim SumArray(1 To ColCount - 1)
               For j = 2 To ColCount
                   SumArray(j - 1) = DataArray(i, j)
               Next j
               Dict.Add Key, SumArray
           Else
               xArr = Dict(Key)
               For j = 2 To ColCount
                   xArr(j - 1) = xArr(j - 1) + DataArray(i, j)
               Next j
               Dict(Key) = xArr
           End If
       Next i
       OutputRange.Resize(Dict.Count, ColCount).ClearContents
       i = 1
       For Each Key In Dict.Keys
           OutputRange.Cells(i, 1).Value = Key
           For j = 1 To ColCount - 1
               OutputRange.Cells(i, j + 1).Value = Dict(Key)(j)
           Next j
           i = i + 1
       Next Key
       Set Dict = Nothing
       Set SourceRange = Nothing
       Set OutputRange = Nothing
   End Sub
   

步驟 2：執行程式碼

1. 貼上此程式碼後，請按下「F5」鍵執行。在提示方塊中，選取您要合併並加總的資料範圍，然後點擊「確定」。
   
2. 接著，在下一個提示方塊中選取輸出結果的儲存格位置，然後點擊「確定」。
   

結果：

現在，重複的行已合併，對應的數值也已完成加總。請參閱以下截圖：

在 Excel 中合併並加總重複行，既簡單又高效！無論您偏好易用的「合併彙算」功能、進階的 Kutools 工具、具強大分析力的資料透視表，還是高度靈活的 VBA 編程，都能找到最契合您技能與需求的解決方案。想掌握更多 Excel 實用技巧？我們網站提供數千篇教學文章，立即點此前往探索！感謝您的閱讀，期待持續為您帶來更多實用資訊！

相關文章：