如何在Excel VBA中搜索全表指定值并格式化对应整行？

原代码存在的问题 #

• 只执行了一次Find，只能找到第一个匹配的"Apple"
• 错误的判断条件Fruit.Row <> Fruit（Range对象和行号不能直接比较，完全无效）
• 依赖Selection操作，不仅效率低，还容易因选中区域变化导致错误

修正后的完整代码 #

Sub FormatRowsWithTargetValue()
    Dim targetWs As Worksheet
    Dim foundCell As Range
    Dim firstMatchAddr As String
    
    ' 指定要操作的工作表，可替换为具体表名如Sheets("产品清单")
    Set targetWs = ActiveSheet
    
    ' 首次查找目标值，LookAt:=xlWhole表示精确匹配
    Set foundCell = targetWs.Cells.Find(What:="Apple", LookAt:=xlWhole, MatchCase:=False)
    
    If Not foundCell Is Nothing Then
        ' 记录第一个匹配单元格的地址，防止循环无限重复
        firstMatchAddr = foundCell.Address
        
        Do
            ' 直接格式化匹配单元格所在的整行，无需选中操作
            With foundCell.EntireRow.Font
                .Italic = True
                .ThemeColor = xlThemeColorLight1
                .TintAndShade = 0.4
            End With
            
            ' 查找下一个匹配项
            Set foundCell = targetWs.Cells.FindNext(foundCell)
            
        ' 循环直到回到第一个匹配项，结束遍历
        Loop While Not foundCell Is Nothing And foundCell.Address <> firstMatchAddr
    End If
End Sub

关键说明 #

• 用Find + FindNext组合实现全工作表遍历，找到所有匹配"Apple"的单元格
• 记录firstMatchAddr是核心：因为FindNext到最后一个匹配项后会回到第一个，用这个地址判断可以终止循环，避免死循环
• 直接操作foundCell.EntireRow，摒弃Select操作，让代码更稳定高效
• 若需要区分大小写，把MatchCase:=False改成MatchCase:=True即可
• 可以替换What:="Apple"为你需要搜索的任意指定值

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