Excel多换行单元格匹配查询：按指定值提取对应行内容

VBA实现代码 #

下面的宏会遍历A列所有单元格，拆分每个单元格内的换行分隔内容，检查是否包含精确的3，如果匹配就将对应B列的内容提取到C列：

Sub ExtractMatchingContent()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim aSplitValues As Variant
    Dim outputRow As Long
    
    ' 指定要操作的工作表，可替换为实际表名如Sheets("Sheet1")
    Set ws = ThisWorkbook.ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    outputRow = 1 ' 结果起始行，可按需修改
    
    For i = 1 To lastRow
        ' 按换行符拆分A列单元格内容
        aSplitValues = Split(ws.Cells(i, "A").Value, Chr(10))
        
        ' 遍历拆分后的每一项，检查是否有精确匹配的"3"
        For Each item In aSplitValues
            If Trim(item) = "3" Then
                ws.Cells(outputRow, "C").Value = ws.Cells(i, "B").Value
                outputRow = outputRow + 1
                Exit For ' 找到匹配后跳出内层循环，避免重复提取同一行
            End If
        Next item
    Next i
    
    MsgBox "提取完成，结果已写入C列！"
End Sub

使用步骤 #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧工程窗口右键点击你的工作簿名称，选择「插入」→「模块」
3. 将上述代码粘贴到模块窗口中
4. 按下F5运行宏，或者回到Excel界面，通过「开发工具」→「宏」选择ExtractMatchingContent执行

备选公式方案（无需VBA） #

如果不想用宏，可以尝试数组公式（输入后必须按Ctrl+Shift+Enter确认，Excel 365/2021可直接按回车）：

=INDEX(B:B,MIN(IF(ISNUMBER(SEARCH(CHAR(10)&"3"&CHAR(10),CHAR(10)&A:A&CHAR(10))),ROW(A:A),999999)))

这个公式会返回第一个匹配行的B列内容。如果需要提取所有匹配结果，可结合FILTER函数（仅Excel 365/2021支持）：

=FILTER(B:B,ISNUMBER(SEARCH(CHAR(10)&"3"&CHAR(10),CHAR(10)&A:A&CHAR(10))))

公式中用CHAR(10)包裹内容是为了精确匹配单独的3，避免误匹配包含3的其他数值（比如13、30等）。

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