在 Excel 中，经常会遇到包含重复条目的数据集。 通常，您可能会发现自己拥有一系列数据，其中的关键挑战是有效组合这些重复行，同时对相应列中的值进行求和，如下图所示。 在此背景下，我们将深入研究几种实用方法，这些方法可以帮助您合并重复数据并聚合其关联值，从而增强 Excel 工作簿的清晰度和实用性。

合并重复的行并求和

• 使用合并功能
• 具有强大的功能 - Kutools
• 带数据透视表
• 使用 VBA 代码

合并重复行并使用 Consolidate 函数对值求和

合并是我们在 Excel 中合并多个工作表或行的有用工具，通过此功能，我们可以快速轻松地合并重复的行并汇总其相应的值。 请按照以下步骤进行：

第 1 步：选择目标单元格

选择您希望合并数据出现的位置。

步骤 2：访问合并功能并设置合并

1. 点击 Data > 整合，请参见屏幕截图：
   
2. 在 整合 对话框：
   • （1.）选择 总和 止 功能 下拉列表;
   • (2.) 单击以选择要合并到的范围 参考文献 框;
   • （3.）检查 第一排 和 左栏 止 在中使用标签 选项;
   • (4.) 最后，单击 OK 按钮。
   • 

结果：

Excel 将合并第一列中找到的所有重复项，并将相邻列中的相应值相加，如下图所示：

合并重复的行并使用强大的功能对值求和 – Kutools

如果你已经安装 Kutools for Excel，它的 高级组合行 该功能允许您轻松组合重复的行，提供对数据进行求和、计数、平均或执行其他计算的选项。 此外，这一功能不仅限于一个键列，它还可以处理多个键列，使复杂的数据整合任务变得更加容易。

安装后 Kutools for Excel，选择数据范围，然后单击 库工具 > 合并与拆分 > 高级组合行.

在 高级组合行 对话框中，请设置以下操作：

1. 单击要根据其合并重复项的列名称，在这里，我将单击“产品”，然后选择 首要的关键 从下拉列表中 操作 柱;
2. 然后，选择要对值求和的列名称，然后选择 总和 从下拉列表中 操作 柱;
3. 对于其他列，您可以选择您需要的操作，例如将值与特定分隔符组合或执行某种计算； （如果只有两列，则可以忽略此步骤)
4. 最后，您可以预览合并结果，然后单击 OK 按钮。
5. 

结果：

现在，键列中的重复值被组合起来，其他相应的值被总结起来，如下图所示：

合并重复行并将值与数据透视表相加

Excel 中的数据透视表提供了一种重新排列、分组和汇总数据的动态方式。 当您面对充满重复条目的数据集并且需要对相应值求和时，此功能变得非常有用。

第 1 步：创建数据透视表

1. 选择数据范围。 然后，转到 插页 选项卡，然后单击 数据透视表，请参见屏幕截图：
   
2. 在弹出的对话框中，选择数据透视表报表的放置位置，您可以根据需要将其放置到新工作表或现有工作表中。 然后，单击 OK。 看截图：
   
3. 现在，数据透视表已插入到选定的目标单元格中​​。 看截图：
   

步骤 2：配置数据透视表：

1. 在 数据透视表字段 窗格中，将包含重复项的字段拖到 行 区域。 这将对您的重复项进行分组。
2. 接下来，将包含要求和的值的字段拖到 价值观 区域。 默认情况下，Excel 对值进行求和。 请参阅下面的演示：
3. 

结果：

数据透视表现在显示合并了重复项的数据及其汇总值，为分析提供清晰简洁的视图。 看截图：

合并重复的行并使用VBA代码对值求和

如果您对 VBA 代码感兴趣，在本节中，我们将提供一个 VBA 代码来合并重复行并对其他列中的相应值求和。 请按照以下步骤进行：

步骤1：打开VBA工作表模块编辑器并复制代码

1. 按住 ALT + F11 在Excel中打开键 Microsoft Visual Basic应用程序 窗口。
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 键来运行此代码。 在提示框中选择需要合并求和的数据范围。 然后，单击 OK.
   
2. 在接下来的提示框中，选择要输出结果的单元格，然后单击 OK.
   

结果：

现在，重复的行被合并，并且它们对应的值已被求和。 看截图：

在 Excel 中对重复行进行组合和求和既简单又高效。 从简单的合并功能、高级的 Kutools、分析数据透视表或灵活的 VBA 编码中进行选择，以找到适合您的技能和需求的解决方案。 如果您有兴趣探索更多 Excel 提示和技巧，我们的网站提供了数千个教程，请 单击此处访问它们。 感谢您的阅读，我们期待在未来为您提供更多有用的信息！

相关文章：