求助：在Excel不同工作表中查找单元格值并实现循环匹配代码

没问题，我帮你搞定这个循环查找所有匹配项的问题！下面是完整的VBA实现代码，我会把关键逻辑拆解开给你讲清楚：

Sub FindAllMatches()
    Dim searchValue As String
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim firstFound As Range
    Dim foundCell As Range
    
    ' 设置工作表对象（根据你的实际表名调整，比如Sheet1/Sheet2）
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
    
    ' 获取要查找的关键词，先判断是否为空
    searchValue = Trim(wsSource.Range("K2").Value)
    If searchValue = "" Then
        MsgBox "请在Sheet1的K2单元格输入要查找的内容！"
        Exit Sub
    End If
    
    ' 关闭屏幕更新，提升运行速度
    Application.ScreenUpdating = False
    
    ' 查找第一个匹配项：LookAt:=xlPart 表示包含该文本，xlWhole是完全匹配
    Set foundCell = wsTarget.Cells.Find(What:=searchValue, _
                                        LookIn:=xlValues, _
                                        LookAt:=xlPart, _
                                        SearchOrder:=xlByRows, _
                                        SearchDirection:=xlNext, _
                                        MatchCase:=False)
    
    ' 如果找到第一个匹配项，开始循环查找所有结果
    If Not foundCell Is Nothing Then
        ' 记录第一个找到的单元格地址，避免无限循环
        Set firstFound = foundCell
        
        Do
            ' 这里执行你需要的相关代码，比如选中单元格、处理数据等
            foundCell.Select ' 选中当前匹配的单元格
            ' 示例：弹出单元格地址，你可以替换成自己的逻辑
            MsgBox "找到匹配项：" & foundCell.Address
            
            ' 查找下一个匹配项
            Set foundCell = wsTarget.Cells.FindNext(foundCell)
            
            ' 循环终止条件：回到第一个找到的单元格，说明所有匹配项都查完了
        Loop While Not foundCell Is Nothing And foundCell.Address <> firstFound.Address
    Else
        MsgBox "在Sheet2中未找到包含""" & searchValue & """的内容！"
    End If
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

• 关键词获取与校验：先读取Sheet1!K2的内容并去除空格，如果为空直接提示用户，避免无效查找
• 首次查找：用Find方法定位第一个匹配单元格，LookAt:=xlPart是核心——它会匹配包含该文本的单元格，如果你需要完全匹配（内容和关键词一模一样），改成xlWhole就行
• 循环查找核心：
  1. 先把第一个找到的单元格地址存起来（firstFound）
  2. 用FindNext找下一个匹配项
  3. 循环终止条件是找不到新单元格，或者回到了第一个单元格的地址，这样就不会无限循环
• 效率优化：开头关闭ScreenUpdating，避免每次查找都刷新屏幕，运行完再恢复

你只需要把代码里的MsgBox部分替换成你自己的业务逻辑就行啦～

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