KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Excel 中根据重复项将多行合并为一行？

作者Xiaoyang修改日期

或许，您拥有如下截图所示的数据，在产品名称列 A 中存在一些重复项，现在您需要删除列 A 中的重复条目，但同时合并列 B 中对应的值，请参见截图：

显示原始数据的截图箭头的截图显示合并行的截图

您是否有高效的方法来完成这项任务？

使用 VBA 代码将多个重复行合并为一个

使用 Kutools for Excel 将多个重复行合并为一个

使用 Kutools for Excel 将多个重复行合并，并对值进行求和/平均

使用 VBA 代码将多个重复行合并为一个

以下 VBA 代码可根据 A 列的值合并重复行，专为两列数据设计。若您恰好只有两列数据，此代码将为您带来极大便利。

1. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 单击插入> 模块，并将以下代码粘贴到模块窗口中。

VBA 代码：将多行合并为一行

Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    xvalue = arr(i, 1)
    If Dic.Exists(xvalue) Then
        Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
    Else
        Dic(arr(i, 1)) = arr(i, 2)
    End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3. 然后按下 F5 键，即可弹出提示框，提醒您选择需要合并的区域。请参见截图：

运行代码后选择数据范围的截图

4. 然后单击确定，B 列中的值将合并为一条记录，并以空格分隔。

显示结果的截图

注意事项：

1. 此代码可能会影响原始数据，使用前请务必备份。

2. 此代码仅适用于两列数据；若列数超过两列，将仅合并前两列，其余列的数据会被删除。使用时请务必谨慎。

使用 Kutools for Excel 将多个重复行合并为一个

既然上述代码存在一些限制和风险，是否存在一种便捷又安全的方式来完成此任务？借助 Kutools for Excel 的高级合并行功能，您即可快速删除基于列的重复行，并将其他记录合并或计算后填入相应单元格。

Kutools for Excel 包含 300 多款实用 Excel 工具，30 天内免费试用，无任何限制！立即获取。

安装 Kutools for Excel 后，请按以下步骤操作：

1. 选择要合并重复项的数据区域。

选择源数据的截图

2. 然后单击 Kutools > 合并和拆分 > 高级合并行。

3. 在高级合并行对话框中，选择要基于其合并值的列作为关键列，然后单击关键列。

在“基于列合并行”对话框中选择关键列的截图

4. 接着单击需要将其值合并为一条记录的列，然后单击汇总类型，选择仅使用分隔符合并，并从右侧列表中选择所需分隔符，以分隔合并后的值。请参见截图：

在“基于列合并行”对话框中选择合并分隔符的截图

5. 设置完成后，单击确定，您的数据将根据关键列自动合并，并以指定分隔符分隔。

合并结果的截图

注意：如果无需对其他列进行操作，保持默认设置即可。

使用 Kutools for Excel 将多个重复行合并并对值进行求和/平均

借助高级合并行这一多功能功能，您不仅能合并重复行，还能对数值进行计算。

1. 选择要合并重复项的区域数据。

2. 进入高级合并行对话框；

  • （1.）选择一个列名作为关键列，您希望基于该列计算其他列的值，然后单击关键列；
  • （2.）选择需要对其值进行计算的列，然后单击汇总类型 > 合并计算，再选择所需的计算类型——此处我选择求和。请参见截图：

展示如何设置“基于列合并行”对话框的截图

3. 如果无需为其余列设置操作，请保持默认状态，然后单击确定，A 列中的重复值将被合并，其在 B 列中对应的值将自动累加。请参见截图：

原始数据范围的截图一个箭头合并结果的截图

注意事项：

1. 如果勾选包含标题选项，应用此功能时将自动忽略所选区域的标题行（即第一行）。

2. 使用格式化后的值：合并重复单元格后，将保留数值的原有格式。

3. 此功能不适用于经过筛选的数据。

单击此处，深入了解这一高级合并行功能的更多信息。

相关文章：

合并重复行并对值求和

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱