如何在Excel中使用CONCATENATE与IF函数合并重复姓名对应的属性值？

嘿，手动处理500行重复数据确实够头疼的！下面给你两种解决方案，先讲快速临时处理的公式法，再直接给你能一键复用的VBA宏代码——完全满足你后续自动化的需求。

如果只是偶尔处理一次，用TEXTJOIN搭配IF就能搞定，比手动合并快N倍：

• 假设你的姓名在A列，属性在B列，表头在第1行
• 在C2单元格输入公式：

  =TEXTJOIN(", ", TRUE, IF($A$2:$A$501=A2, $B$2:$B$501, ""))
  

  （这里把$A$2:$A$501和$B$2:$B$501改成你实际的数据范围，比如如果有600行就改成$A$2:$A$601）
• 按Ctrl+Shift+Enter（Excel 2019及以后版本直接回车就行），然后把C2的公式下拉填充到所有行
• 选中C列，右键→「复制」，再右键→「粘贴为值」（避免公式后续出错）
• 最后选中A列，点击「数据」选项卡→「删除重复项」，只勾选「姓名」列，确认删除重复行

这样就得到了每个姓名对应的合并属性啦！

既然你想把流程做成宏复用，那直接给你写好代码，一步到位：

操作步骤： #

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」
3. 把下面的代码粘贴进去，记得把代码里的"Sheet1"改成你的源工作表名称（比如你的表叫「员工数据」就改成"员工数据"）
4. 按F5运行宏，或者回到Excel，点击「开发工具」→「宏」，选择MergeDuplicateNames运行

宏代码： #

Sub MergeDuplicateNames()
    Dim wsSource As Worksheet, wsResult As Worksheet
    Dim lastRow As Long, i As Long
    Dim nameDict As Object
    Dim currentName As String, currentAttr As String
    
    ' 设置源工作表（替换成你的工作表名称）
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    ' 创建新工作表存放结果（不破坏原数据）
    Set wsResult = ThisWorkbook.Worksheets.Add(After:=wsSource)
    wsResult.Name = "合并结果"
    
    ' 写入表头
    wsResult.Range("A1").Value = "姓名"
    wsResult.Range("B1").Value = "合并属性"
    
    ' 用字典存储姓名和对应的属性集合
    Set nameDict = CreateObject("Scripting.Dictionary")
    
    ' 获取源数据的最后一行行数
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历所有数据行（跳过表头）
    For i = 2 To lastRow
        currentName = Trim(wsSource.Cells(i, "A").Value)
        currentAttr = Trim(wsSource.Cells(i, "B").Value)
        
        ' 跳过空姓名行
        If currentName <> "" Then
            ' 如果字典里没有这个姓名，就新增条目
            If Not nameDict.Exists(currentName) Then
                nameDict(currentName) = currentAttr
            Else
                ' 如果已存在，就追加属性（用逗号分隔，可自行修改分隔符）
                nameDict(currentName) = nameDict(currentName) & ", " & currentAttr
            End If
        End If
    Next i
    
    ' 把字典里的内容写入结果工作表
    i = 2
    For Each key In nameDict.Keys
        wsResult.Cells(i, "A").Value = key
        wsResult.Cells(i, "B").Value = nameDict(key)
        i = i + 1
    Next key
    
    ' 自动调整列宽，看起来更舒服
    wsResult.Columns("A:B").AutoFit
    
    MsgBox "合并完成！结果已保存到新工作表 ""合并结果"" 中。", vbInformation
End Sub

小提示： #

• 如果不想用逗号分隔属性，把代码里的", "改成你想要的符号就行（比如"; "或者" | "）
• 宏会自动创建新工作表存结果，绝对不会修改你的原数据，放心用
• 以后再遇到相同需求，直接打开宏运行就行，全程10秒搞定！

内容的提问来源于stack exchange，提问作者JGM