如何在指定行多列中查找含R的单元格并返回完整内容？

问题背景 #

现有如下格式的数据集（列数不固定，每行后续列数量不一致）：

01AENPRV__  -0166U  -289R   -127PT  
ABGIKLOPPUX___  -05AP   -2244U      
13AABDDEFFGMMM  -115HU  -2339U      
14AABBDFFGMMMOP -1234U  -015MU      
12ACDFFGHMMNOP  -117JU  -2345R  -457JU  
AGIJPRSTT___    -133U   -011J       
$144778N    -1335U  -1235R      
$0001123N   -1118FU -125R       
$013899N    -1278R  -058AU      
0169CKLRT____   -345U   -1249R  -015BP  
ABCIKKLP    -57GP   -0144R       

需求：指定某一行（例如开头为12ACDFFGHMMNOP的行），在该行的多列范围内查找包含字符R的单元格，并返回其完整文本。此前尝试使用VLOOKUP函数，但因数据集列数不固定无法适用。

解决方案 #

方案1：使用Excel内置函数组合（无需VBA） #

如果你的Excel支持动态数组函数（Excel 365/2021及以上版本），可以用以下公式直接获取结果：

=TEXTJOIN(", ", TRUE, FILTER(INDEX($1:$1048576, MATCH("12ACDFFGHMMNOP", $A:$A, 0), ), ISNUMBER(SEARCH("R", INDEX($1:$1048576, MATCH("12ACDFFGHMMNOP", $A:$A, 0), )))))

公式说明：

1. MATCH("12ACDFFGHMMNOP", $A:$A, 0)：定位目标行的行号（假设行标识在A列）
2. INDEX($1:$1048576, 行号, )：提取目标行的所有单元格内容
3. SEARCH("R", ...)：检查每个单元格是否包含R，返回位置或错误值
4. FILTER：筛选出含R的单元格内容
5. TEXTJOIN：如果有多个匹配结果，用逗号分隔合并输出

如果仅需返回第一个匹配项，可使用：

=INDEX(INDEX($1:$1048576, MATCH("12ACDFFGHMMNOP", $A:$A, 0), ), MATCH(TRUE, ISNUMBER(SEARCH("R", INDEX($1:$1048576, MATCH("12ACDFFGHMMNOP", $A:$A, 0), ))), 0))

方案2：自定义VBA函数（兼容所有Excel版本） #

如果你的Excel版本不支持动态数组函数，可以编写自定义函数实现：

1. 按Alt+F11打开VBA编辑器
2. 插入模块，粘贴以下代码：

Function FindInRow(rowKey As String, searchChar As String) As String
    Dim ws As Worksheet
    Dim rowNum As Long
    Dim cell As Range
    Dim result As String
    
    Set ws = ActiveSheet
    ' 查找目标行的行号
    On Error Resume Next
    rowNum = ws.Columns(1).Find(What:=rowKey, LookIn:=xlValues, LookAt:=xlWhole).Row
    On Error GoTo 0
    
    If rowNum = 0 Then
        FindInRow = "未找到目标行"
        Exit Function
    End If
    
    ' 遍历该行单元格查找含指定字符的内容
    For Each cell In ws.Rows(rowNum).Cells
        ' 只处理非空单元格，避免遍历全行列
        If cell.Value <> "" And InStr(cell.Value, searchChar) > 0 Then
            result = result & cell.Value & ", "
        End If
    Next cell
    
    ' 去除末尾多余的逗号和空格
    If result <> "" Then
        FindInRow = Left(result, Len(result) - 2)
    Else
        FindInRow = "未找到含" & searchChar & "的单元格"
    End If
End Function

3. 返回Excel界面，在任意单元格输入公式即可使用：

=FindInRow("12ACDFFGHMMNOP", "R")

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