合併重複行并对 Excel 中的值求和（简单技能）-英雄云拓展知识分享

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

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

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

第 1 步：选择目标贮存格

选择您希望合併资料出现的位置。

步骤 2：存取合併功能并设定合併

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

结果：

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

合併重复的行并使用强盛的功能对值求和 – tools

如果你已安装 Excel的tools，其 高级合併行 此功能可以让您轻鬆组合重复的行，提供资料求和、计数、平均或履行其他计算的选项。 另外，这项功能不但限于一个键列，它还可以处理多个键列，使复杂的资料整合任务变得更加容易。

安装后 Excel的tools，选择资料范围，然后按一下 库工具 > 合併与拆分 > 高级合併行.

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

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

结果：

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

合併重复行并将数值与资料透视表相加

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

第 1 步：建立资料透视表

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

步骤 2：设定资料透视表：

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

结果：

资料透视表现在显示合併了重复项的资料及其总计值，为分析提供清晰简洁的视野。 看截图：

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

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

步骤1：开启VBA工作表模组编辑器并复制程式码

1. 按住 ALT + F11 在Excel中打开键 Microsoft Visual Basic for Applications 窗口。
2. 点击 插入 > 模块，然后将以下代码粘贴到 模块 窗口。
   VBA代码：合併重复的行并求和

   Sub CombineDuplicateRowsAndSumForMultipleColumns()
   'Update by
   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:", "tools for Excel", Type:=8)
   If SourceRange Is Nothing Then Exit Sub
   ColCount = SourceRange.Columns.Count
   Set OutputRange = Application.InputBox("Select a cell for output:", "tools 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 中对重复行进行组合和求和既简单又行之有效的率。 从简单的合併功能、进阶的 tools、分析资料透视表或灵活的 VBA 编码中进行选择，以找到合适您的技能和需求的解决方案。 如果您有兴趣探索更多 Excel 提示和技能，我们的网站提供了数千个教程，请 点击此处访问它们。 感谢您的浏览，我们期待在不久的将来为您提供更多有用的信息！

相干文章：