如何基于标题匹配将多行列值合并为单行分号分隔单元格

方法1：VBA自定义函数（推荐，灵活可控） #

如果允许使用VBA，自定义函数是最直观的解决方案，逻辑和Vlookup类似，遍历查找区域并拼接匹配结果：

1. 打开Excel，按下Alt+F11打开VBA编辑器
2. 右键点击当前工作簿 → 插入 → 模块
3. 在模块中粘贴以下代码：

Function JoinLookup(lookupVal As Variant, lookupRange As Range, returnRange As Range, delimiter As String) As String
    Dim cell As Range
    Dim result As String
    result = ""
    ' 校验两个区域行数是否一致
    If lookupRange.Rows.Count <> returnRange.Rows.Count Then
        JoinLookup = "区域行数不匹配"
        Exit Function
    End If
    ' 遍历查找区域，匹配则拼接结果
    For Each cell In lookupRange
        If cell.Value = lookupVal Then
            If result <> "" Then result = result & delimiter
            result = result & returnRange.Cells(cell.Row - lookupRange.Row + 1, 1).Value
        End If
    Next cell
    JoinLookup = result
End Function

4. 返回Excel界面，在空白单元格（比如C2）中输入公式：
   =JoinLookup(A2,$A$2:$A$100,$B$2:$B$100,",")
   • 说明：A2是当前要匹配的标题，$A$2:$A$100是所有标题的查找区域，$B$2:$B$100是对应的属性值区域，","是分隔符（可替换为";"）
5. 下拉填充公式，即可得到每个标题对应的合并属性值

方法2：数组公式（无需VBA） #

如果不能使用VBA，可结合数组公式+基础函数实现，需按Ctrl+Shift+Enter确认输入（而非普通回车）：

假设A列是标题，B列是属性值，在C2输入以下公式：

=IFERROR(LEFT(CONCATENATE(IF($A$2:$A$100=A2,$B$2:$B$100&",","")),LEN(CONCATENATE(IF($A$2:$A$100=A2,$B$2:$B$100&",","")))-1),"")

• 逻辑：用IF筛选出当前标题对应的所有属性值并添加分隔符，CONCATENATE拼接成字符串，LEFT去掉末尾多余的分隔符，IFERROR处理无匹配值的情况
• 注意：将公式中的$A$2:$A$100和$B$2:$B$100替换为你实际的数据区域，分隔符","可按需替换为";"

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