Excel多值查找：将指定名称关联书籍合并至单个单元格

方法一：嵌套函数实现（无需VBA） #

完全可以用TEXTJOIN()搭配IF()、INDEX()/MATCH()这类函数完成需求，不用编写VBA代码。假设：

• 原数据存于Sheet1：A列是书籍标题、B列是作者，C列（对应Adam）、D列（对应Alice）为标记列（用"x"标记关联关系）
• 名称列表存于Sheet2的A列，目标是在Sheet2的B列生成合并后的书籍内容

固定名称的公式示例（以Adam为例） #

在Sheet2的B2单元格输入以下公式（新版Excel直接回车，旧版需按Ctrl+Shift+Enter触发数组计算）：

=TEXTJOIN(", ", TRUE, IF(Sheet1!C:C="x", Sheet1!A:A&" by "&Sheet1!B:B, ""))

动态匹配名称的公式示例 #

如果Sheet2的A列是任意名称，需要自动匹配原数据中对应列的标记，可用MATCH()定位列位置：

=TEXTJOIN(", ", TRUE, IF(INDEX(Sheet1!C:D, , MATCH(Sheet2!A2, Sheet1!C1:D1, 0))="x", Sheet1!A:A&" by "&Sheet1!B:B, ""))

方法二：VBA实现（适合大数量或自动化场景） #

如果数据量极大（上万行级别），函数公式可能出现卡顿；或者需要批量自动更新内容，推荐用VBA实现。核心逻辑是遍历名称列表，匹配原数据中的标记行，拼接指定格式的字符串后写入目标单元格。

简单示例代码 #

Sub MergeAssociatedBooks()
    Dim nameWs As Worksheet, dataWs As Worksheet
    Dim lastNameRow As Long, lastDataRow As Long
    Dim nameCol As Integer, i As Long, j As Long
    Dim mergeStr As String
    
    ' 指定工作表，可根据实际修改
    Set nameWs = ThisWorkbook.Sheets("Sheet2")
    Set dataWs = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取数据最后一行
    lastNameRow = nameWs.Cells(Rows.Count, 1).End(xlUp).Row
    lastDataRow = dataWs.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历每个名称
    For i = 2 To lastNameRow
        mergeStr = ""
        ' 查找当前名称在原数据中的列位置
        On Error Resume Next
        nameCol = dataWs.Rows(1).Find(nameWs.Cells(i, 1).Value).Column
        On Error GoTo 0
        
        If nameCol > 0 Then
            ' 遍历原数据行，收集标记为"x"的书籍
            For j = 2 To lastDataRow
                If dataWs.Cells(j, nameCol).Value = "x" Then
                    If mergeStr <> "" Then mergeStr = mergeStr & ", "
                    mergeStr = mergeStr & dataWs.Cells(j, 1).Value & " by " & dataWs.Cells(j, 2).Value
                End If
            Next j
        End If
        ' 写入合并结果
        nameWs.Cells(i, 2).Value = mergeStr
    Next i
End Sub

方案选择总结 #

• 数据量小、需求简单：优先用TEXTJOIN()嵌套函数，操作便捷无需代码
• 数据量大、需自动化更新：用VBA效率更高，可批量处理

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