遍历列匹配雇主名称片段时Find函数仅识别首个匹配同类重复值问题

这个问题我之前也碰到过！核心原因是Find函数的工作逻辑——它默认只会返回起始位置后的第一个匹配项，如果你后续调用时没调整查找的起始点，就会一直重复找到同一个匹配的重复值，完全不会去扫其他符合条件的不同项。

具体原因拆解 #

拿你的例子来说：

• 当你第一次调用Find找到"Bobs Cake Shop"后，如果没有把下一次查找的起始位置设为当前单元格的下一个位置，那么下一次调用Find还是会从原起点开始搜索，自然又会找到第一个蛋糕店记录。
• 循环下去的结果就是，你只会收集到所有和第一个匹配项相同的记录，而像"Bobs Funeral Home"这种其他符合条件的项，永远不会被触及到。

解决方案分两种情况 #

情况1：用VBA遍历查找

要用Find + FindNext组合，每次更新查找的起始位置，同时设置循环终止条件避免无限循环：

Sub FindAllMatchingEmployers()
    Dim searchCol As Range
    Dim firstHit As Range
    Dim nextHit As Range
    Dim searchText As String
    
    ' 获取用户输入的搜索片段
    searchText = InputBox("请输入要查找的雇主名称片段")
    ' 设置要搜索的列（替换成你的目标列和工作表名）
    Set searchCol = ThisWorkbook.Sheets("Sheet1").Range("A:A")
    
    ' 第一次查找，指定模糊匹配（xlPart）
    Set firstHit = searchCol.Find(What:=searchText, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
    
    If Not firstHit Is Nothing Then
        Set nextHit = firstHit
        Do
            ' 这里可以添加处理逻辑，比如把找到的记录存入列表/打印
            Debug.Print "找到匹配项：" & nextHit.Value & "，位置：" & nextHit.Address
            
            ' 关键：以上一次找到的单元格为起点，查找下一个匹配项
            Set nextHit = searchCol.FindNext(After:=nextHit)
        ' 终止条件：当回到第一个匹配项时，说明已遍历完所有结果
        Loop While Not nextHit Is Nothing And nextHit.Address <> firstHit.Address
    Else
        MsgBox "未找到任何匹配的雇主记录"
    End If
End Sub

重点注意：

• LookAt:=xlPart确保是包含匹配（而非完全匹配），这符合你要找片段的需求
• FindNext必须指定After参数为上一次找到的单元格，否则永远停在第一个匹配项
• 循环里判断nextHit.Address <> firstHit.Address，避免无限循环

情况2：用工作表公式获取所有匹配项

如果你不需要VBA，用Excel内置公式更简单（适合Excel 365/2021及以后版本）：
使用FILTER + SEARCH组合，直接返回所有包含目标片段的记录：

=FILTER(A:A, ISNUMBER(SEARCH("你的搜索片段", A:A)), "无匹配项")

这个公式会自动列出所有符合条件的记录，不管是重复的相同项还是不同的匹配项。

如果是旧版Excel，没有FILTER函数，可以用数组公式（输入后按Ctrl+Shift+Enter确认）：

=INDEX(A:A, SMALL(IF(ISNUMBER(SEARCH("你的搜索片段", A:A)), ROW(A:A)), ROWS($1:1)))

下拉这个公式直到出现错误值，就能得到所有匹配项。

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