此方法将引入VBA，以快速组合指定选择中具有相同ID或名称的所有行。 请执行以下操作：

1。 按 其他 + F11 键以打开“ Microsoft Visual Basic应用程序”窗口。

2。 点击 插页 > 模块，然后将VBA代码粘贴到“模块”窗口中。

VBA：在Excel中合并具有相同ID /名称的行

Sub Consolidate_Rows()
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Value
Else
xRg(I, K) = xRg(I, K).Value & "," & xRg(J, K).Value
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub

3。 按 F5 键或单击 运行 按钮以运行此VBA。

4。在弹出的 Kutools for Excel 对话框中，请选择要合并的行，然后单击 OK 按钮。 看截图：

现在，您将看到指定范围内的行由相同的ID加上逗号。 看截图：

备注：此VBA只能按第一列中的值组合行。 例如，要合并具有相同名称的行，必须将名称列移至指定范围的第一列。

轻松合并行并根据Excel中另一列中的值进行计算

Kutools for Excel的 高级组合行 实用程序可以帮助您基于anohter列中的值组合行，并同时求和，计数，平均值等！

如果您安装了 Kutools for Excel，您可以应用它 高级组合行 功能可以快速组合指定范围内具有相同ID或名称的行。

1。 选择要合并的行，然后单击 库工具 > 内容 > 高级组合行。 看截图：

2。 在“高级合并行”对话框中，选择要合并的ID或名称列，然后单击 首要的关键，然后根据需要为其他列指定组合规则。

就我而言 (1) 我选择 订单编号 列，然后单击 首要的关键; (2) 选择 日期 列，然后单击 计算 > 计数; (3) 选择 推销员 列，然后单击 结合 > 逗号; (4) 选择 金额 列，然后单击 计算 > 总和。 看截图：

3。 点击 OK 按钮。
现在，您将看到根据订单ID组合选定的行。 看截图：

如何在Excel中串联保持数字/日期格式？

如何在Excel中连接另一个工作表/不同工作表中的单元格？