Excel中整合同名行数据有四种方法：一、数据透视表适用于数值求和或预处理文本合并；二、SUMIFS与TEXTJOIN组合公式可动态合并多列文本；三、Power Query支持大批量数据分组聚合，可去重排序；四、VBA宏能保留格式并一键合并相邻同名行。
如果您在Excel表格中发现多行记录具有相同的姓名，但其他字段（如电话、地址、部门等）不同，需要将这些同名行的数据整合到单一行中，则可能是由于原始数据分散录入或重复采集所致。以下是解决此问题的步骤：
一、使用数据透视表汇总同名行
该方法适用于需对同名行进行数值类字段（如金额、数量）求和，或对文本类字段（如备注、标签）做合并汇总，且不修改原始数据结构。
1、选中包含姓名及其他字段的完整数据区域（含标题行）。
2、点击“插入”选项卡，选择“数据透视表”，在弹出窗口中确认数据源并选择新工作表放置。
3、在数据透视表字段列表中，将“姓名”拖入“行”区域。
4、将需汇总的数值字段（如“销售额”）拖入“值”区域，默认为求和；若需合并文本字段（如“备注”），需先在源数据中添加辅助列（如用TEXTJOIN预处理），再通过透视表+GETPIVOTDATA引用提取。
二、使用SUMIFS与TEXTJOIN组合公式实现动态合并
该方法适用于Excel 2016及以上版本，能一次性将所有同名行对应字段的内容以指定分隔符合并输出，无需手动筛选或复制粘贴。
1、在空白列（如Z1）输入标题“合并后备注”，在Z2单元格输入公式：=TEXTJOIN("；",TRUE,IF($A$2:$A$1000=A2,$C$2:$C$1000,""))
2、按Ctrl+Shift+Enter（Excel旧版本）或直接按Enter（支持动态数组的Excel 365/2021）确认公式。
3、将公式向下填充至数据末尾，确保A列姓名范围（$A$2:$A$1000）覆盖全部数据行。
4、对其他需合并的列（如电话、部门），重复步骤1–3，仅修改公式中引用的列（如$D$2:$D$1000）。
三、借助Power Query按姓名分组并聚合文本
该方法适合处理大量数据或需重复执行的场景，支持多字段同时合并、去重、排序等高级操作，且操作全程可追溯、可刷新。
1、选中任意数据单元格，点击“数据”选项卡，选择“从表格/区域”，勾选“表包含标题”，点击“确定”加载至Power Query编辑器。
2、在查询编辑器中，右键点击“姓名”列，选择“分组依据”。
3、在分组窗口中，“新列名”填写“合并电话”，“操作”选择“所有行”，点击“高级”展开，勾选“聚合列”并设置：列选择“电话”，操作选择“合并”，分隔符输入“；”，勾选“忽略空值”。
4、重复步骤3，为“地址”“部门”等列分别添加聚合列，每列设置独立的新列名与分隔符。
5、点击“关闭并上载”，结果将自动写入新工作表。
四、使用VBA宏一键合并同名行（保留首行格式）
该方法适用于需严格保留原始格式（如字体、颜色、边框）、且合并后仍需人工校验的场景，运行后自动识别重复姓名并横向合并相邻非空内容。
1、按Alt+F11打开VBA编辑器，插入→模块，粘贴以下代码：
Sub MergeSameNameRows()
Dim ws As Worksheet, rng As Range, i As Long, lastRow As Long
Set ws = ActiveSheet: lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For i = lastRow To 2 Step -1
If ws.Cells(i, 1).Value = ws.Cells(i - 1, 1).Value Then
ws.Cells(i - 1, 2).Value = ws.Cells(i - 1, 2).Value & "；" & ws.Cells(i, 2).Value
ws.Rows(i).Delete
End If
Next i
2、返回Excel界面，按Alt+F8调出宏列表，选择“MergeSameNameRows”，点击“运行”。
3、观察A列姓名是否已去重，B列内容是否以“；”连接原多行数据。
