如何根据一列的值快速合并行并在Excel中进行一些计算？

例如，您有一个数据区域，并且其中一列包含重复项，现在您希望基于A列（有重复项）合并行，然后根据合并后的行对另一列进行一些计算，如下截图所示：

在Excel中，没有快速的方法可以根据某一列的值来合并行，但在这里我将介绍一些技巧，可以帮助您合并重复行并对另一列进行求和或其他计算。

原始数据	合并并求和

使用VBA根据一列合并行并求和

使用高级合并行根据一列合并行并求和

根据一列合并行并对其他列执行不同操作，使用
高级合并行

使用VBA根据一列合并行并求和

有一段VBA代码可以帮助您合并重复行并对另一列的值进行求和。

1. 按 F11 + Alt 键启用 Microsoft Visual Basic for Applications 窗口，然后点击 插入 > 模块 并复制粘贴以下VBA代码到新的模块窗口中。

VBA：根据一列的值合并行

Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
    If Not .Exists(Rng.Value) Then
        .Add Rng.Value, Rng.Offset(, 1)
    Else
        .Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
            If nRng Is Nothing Then
                Set nRng = Rng
            Else
                Set nRng = Union(nRng, Rng)
            End If
    End If
Next
If Not nRng Is Nothing Then
    nRng.EntireRow.Delete
End If
End With
End Sub

2. 按 F5 或点击 运行 按钮运行VBA，会弹出一个对话框供选择要处理的数据范围。参见截图：

3. 选择工作范围后，点击 确定。现在数据已按第一列合并，并对第二列的值进行了求和。

注意：此VBA代码仅在基于第一列合并并求和第二列的值时才能正确工作。

使用高级合并行根据一列合并行并求和

如果您不熟悉VBA代码，可以使用第三方插件工具 Kutools for Excel 的 高级合并行 功能，轻松快速地合并重复行并对另一列的值进行求和。

1. 选择要使用的数据，点击 Kutools > 合并与拆分 > 高级合并行。参见截图：

2. 在弹出的对话框中，选择您将基于其合并其他列的列，然后点击 主键，再点击另一列并点击 计算，然后选择 求和。

提示：如果您的选定范围包含标题，请勾选 数据包含标题，勾选 使用格式化后的值 将在合并后保留格式。

3. 然后点击 确定。现在数据已基于主列合并，并对另一列进行了求和。参见截图：

使用高级合并行根据一列合并行并对其他列执行不同操作。

高级合并行功能强大，因为它不仅可以合并一列中的重复行并对另一列求和，还可以合并一列中的重复行并对其他列执行不同的操作。

假设我有一个如下面截图所示的数据区域，并且我希望基于A列合并B列的值并对C列的值进行求和。

1. 选择数据范围并点击 Kutools > 合并与拆分 > 高级合并行。参见截图：

2. 在 基于列合并行 对话框中，执行以下操作：

(1) 单击您要基于其合并的列，然后点击 主键；

(2) 单击您要合并数据的列，然后点击 合并，接着从列表中选择所需的区分符；

(3) 单击您要求和的列并点击 计算，然后选择 求和。

3. 点击 确定。现在您可以看到如下结果：

通过高级合并行功能，您还可以基于一列合并行，然后对其他列进行计数、平均、保留第一个或最后一个数据。