Excel VBA布尔函数调试：检测单元格区域是否含红色单元格

你的代码思路方向是对的，但存在两个关键问题导致它无法按预期工作：

1. 缺少默认返回值 #

当前代码只在找到红色单元格（counter > 0）时将函数设为True，但如果区域内没有红色单元格，函数不会返回False——VBA中未显式赋值的函数会返回Empty，这在Excel单元格中会显示为不符合布尔值预期的结果，这是最核心的问题。

2. 效率低下 #

你的代码会遍历指定区域的每一个单元格，哪怕已经找到第一个红色单元格了，还会继续检查剩下的所有单元格。对于大的单元格区域来说，这会浪费不必要的计算资源。

修复后的代码 #

Function CheckIfRed(TargetRange As Range) As Boolean
    Dim currentCell As Range
    ' 先设置默认返回值为False
    CheckIfRed = False
    For Each currentCell In TargetRange
        If currentCell.Interior.Color = 3 Then
            ' 找到红色单元格后立即设为True并退出循环，无需继续遍历
            CheckIfRed = True
            Exit For
        End If
    Next currentCell
End Function

改进点说明 #

• 一开始就给函数赋值False，确保无论是否找到红色单元格，函数都返回有效的布尔值
• 找到第一个红色单元格后立刻用Exit For终止循环，大幅提升代码运行效率
• 把参数名从Cells改成TargetRange，避免和Excel内置的Cells对象重名，减少潜在的命名冲突

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