Excel跨工作表提取多单元格数据并合并至单个单元格的公式咨询

我完全懂你的需求啦——就是要把对应每个废料零件号的所有父项，从另一张表的分散单元格里提取出来，合并到目标表的“Where Used”列单个单元格中，对吧？下面给你几种不同Excel版本适用的解决方案：

一、适用于Excel 365/2021及以后版本（推荐） #

用TEXTJOIN函数就能轻松搞定，这是专门为合并文本设计的函数，非常方便。假设：

• 你的源数据在Sheet2中：A列是零件号，C列是对应的父项
• 目标表在Sheet1中：A列是需要匹配的零件号，B列是要填充“Where Used”的单元格

在Sheet1的B2单元格输入以下公式，然后下拉填充即可：

=TEXTJOIN(", ", TRUE, IF(Sheet2!$A:$A=Sheet1!A2, Sheet2!$C:$C, ""))

公式解释： #

• ", "：指定合并后父项之间的分隔符，你可以改成其他符号比如"; "
• TRUE：表示忽略空值，避免出现多余的分隔符
• IF(Sheet2!$A:$A=Sheet1!A2, Sheet2!$C:$C, "")：匹配当前零件号对应的所有父项，不匹配的返回空值

二、适用于Excel 2016及更早版本（无TEXTJOIN函数） #

如果你的Excel版本不支持TEXTJOIN，可以用PHONETIC函数结合数组公式来实现（注意：这个方法仅对文本类型的父项效果好，数字类型可能会出现格式问题）：

在Sheet1的B2单元格输入以下公式，然后按Ctrl+Shift+Enter完成数组输入，再下拉填充：

=LEFT(PHONETIC(IF(Sheet2!$A:$A=Sheet1!A2, Sheet2!$C:$C&", ", "")), LEN(PHONETIC(IF(Sheet2!$A:$A=Sheet1!A2, Sheet2!$C:$C&", ", "")))-2)

公式解释： #

• PHONETIC：合并符合条件的文本内容，我们先给每个父项加上分隔符,
• LEFT(..., LEN(...)-2)：去掉最后多余的, 分隔符

如果需要处理数字类型的父项，也可以用自定义VBA函数，灵活性更高。

三、自定义VBA函数（所有版本通用，支持任意数据类型） #

按Alt+F11打开VBA编辑器，插入一个新模块，粘贴以下代码：

Function JoinParentItems(lookupPart As Variant, sourcePartRange As Range, sourceParentRange As Range, delimiter As String) As String
    Dim cell As Range
    Dim resultText As String
    resultText = ""
    
    '遍历源数据的零件号列，匹配后收集对应父项
    For Each cell In sourcePartRange
        If cell.Value = lookupPart Then
            If resultText <> "" Then
                resultText = resultText & delimiter
            End If
            resultText = resultText & sourceParentRange.Cells(cell.Row - sourcePartRange.Row + 1).Value
        End If
    Next cell
    
    JoinParentItems = resultText
End Function

保存后回到Excel，在Sheet1的B2单元格输入以下公式，下拉填充即可：

=JoinParentItems(A2, Sheet2!$A:$A, Sheet2!$C:$C, ", ")

这个函数可以处理文本、数字等任意类型的父项，分隔符也可以自由调整。

备注：内容来源于stack exchange，提问作者Juan P.