如何查找列内任意位置的单元格文本？求Excel匹配公式

这里有两种实用的方案来实现你的需求，你可以根据自己的场景灵活选择：

一、公式解法（无需代码，快速上手） #

这是最适合普通用户的方案，直接在B列输入公式就能自动完成判断：

方法1：返回True/False结果 #

在B2单元格输入以下公式，然后下拉填充到所有需要判断的行：

=IF(A2="","",COUNTIF(C:C,"*"&A2&"*")>0)

• 公式拆解：
  • "*"&A2&"*"：用通配符*包裹A2的文本，实现模糊片段匹配（只要C列任意单元格包含A2的文本就算匹配）
  • COUNTIF(C:C, ...)：统计C列中符合匹配条件的单元格数量
  • >0：如果数量大于0，说明文本存在，返回True，否则返回False
  • IF(A2="","",...)：专门处理A列空单元格，避免空文本误匹配为True

方法2：返回数字1/0结果 #

如果需要用数字表示（1代表存在，0代表不存在），可以用这个公式：

=IF(A2="","",--(COUNTIF(C:C,"*"&A2&"*")>0))

• 这里的--是把布尔值（True/False）强制转换为数字（1/0）的小技巧

进阶：区分大小写的匹配 #

如果需要严格区分大小写（比如"Apple"和"apple"视为不同），可以用数组公式（Excel 365/2021直接回车即可，旧版本需按Ctrl+Shift+Enter完成输入）：

=IF(A2="","",MAX(EXACT(SEARCH(A2,C:C),SEARCH(A2,C:C)))>0)

二、VBA解法（适合批量处理或复杂场景） #

如果你的表格数据量极大，或者需要自定义更复杂的匹配规则，可以用VBA脚本批量处理：

1. 打开Excel，按下Alt+F11打开VBA编辑器
2. 右键左侧工程窗口 → 插入 → 模块，新建一个代码模块
3. 粘贴以下代码：

Sub CheckTextInColumn()
    Dim targetSheet As Worksheet
    Dim lastRowA As Long, lastRowC As Long
    Dim currentRow As Long, cRow As Long
    Dim searchText As String
    Dim isFound As Boolean
    
    ' 替换成你的工作表名称，比如"Sheet1"
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取A列和C列的最后一行（避免遍历无效空行）
    lastRowA = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row
    lastRowC = targetSheet.Cells(targetSheet.Rows.Count, "C").End(xlUp).Row
    
    ' 从第2行开始遍历（假设第1行是表头）
    For currentRow = 2 To lastRowA
        searchText = targetSheet.Cells(currentRow, "A").Value
        isFound = False
        
        ' 跳过空单元格
        If searchText <> "" Then
            ' 在C列中查找包含该文本的单元格
            For cRow = 2 To lastRowC
                ' vbTextCompare = 不区分大小写；vbBinaryCompare = 区分大小写，按需替换
                If InStr(1, targetSheet.Cells(cRow, "C").Value, searchText, vbTextCompare) > 0 Then
                    isFound = True
                    Exit For ' 找到后立即跳出循环，提升处理效率
                End If
            Next cRow
        End If
        
        ' 输出结果到B列，要数字的话改成 IIf(isFound, 1, 0)
        targetSheet.Cells(currentRow, "B").Value = isFound
    Next currentRow
    
    MsgBox "判断完成！", vbInformation
End Sub

4. 修改代码中的工作表名称（比如把"Sheet1"改成你实际的表名），然后运行这个宏就能完成批量判断

三、注意事项 #

• 公式法中的COUNTIF默认不区分大小写，如果需要严格区分，优先用数组公式或VBA方案
• 如果C列包含超大量数据，TEXTJOIN类的公式可能会碰到字符长度限制，这时候COUNTIF或VBA更稳定
• VBA法可以轻松扩展自定义规则，比如只匹配单元格开头/结尾的文本，只需修改InStr的逻辑即可

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