VBA技术问题：查找含"Not Found"的单元格并设置字体为红色

原代码的问题 #

• 循环条件逻辑错误：Loop While Cells.Selection.Font.Color <> vbRed 无法正确判断是否遍历完所有匹配项，要么遗漏结果，要么陷入无限循环。
• 依赖Select/Activate操作单元格：这类操作效率低下，还容易因单元格焦点变化引发意外错误。
• 变量名与子程序名冲突：Dim Find_NotFound As Range 和子程序名Find_NotFound重复，会导致编译错误。
• 缺少循环终止判断：未记录首次找到的单元格位置，无法识别是否已遍历完所有匹配项，必然会无限循环。

修正后的VBA代码 #

Sub Find_NotFound(NotFound As String)
    Application.ScreenUpdating = False
    
    Dim firstFound As Range
    Dim currentFound As Range
    
    ' 执行首次查找
    Set currentFound = Cells.Find(What:=NotFound, After:=Range("A1"), LookIn:=xlFormulas2, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    
    If Not currentFound Is Nothing Then
        ' 记录第一个匹配单元格的位置，用于判断循环终止
        Set firstFound = currentFound
        
        Do
            ' 直接设置字体颜色，无需选中单元格
            currentFound.Font.Color = vbRed
            
            ' 查找下一个匹配项
            Set currentFound = Cells.FindNext(After:=currentFound)
            
            ' 循环终止条件：回到第一个匹配单元格，说明已遍历全部结果
        Loop While Not currentFound Is Nothing And currentFound.Address <> firstFound.Address
    End If
    
    Application.ScreenUpdating = True
End Sub

关键改进点 #

• 移除Select/Activate：直接通过Range对象操作单元格，提升代码稳定性和执行速度。
• 新增循环终止逻辑：记录第一个匹配单元格的地址，当FindNext回到该地址时终止循环，避免无限循环。
• 优化变量命名：将冲突的变量名改为firstFound和currentFound，消除命名冲突。
• 简化操作流程：直接对找到的单元格设置字体颜色，无需额外选中步骤，逻辑更清晰。

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