为什么我的Excel VBA按单元格颜色计数代码无法正常运行？

现有代码问题 #

• 未声明rCell变量，缺少变量校验机制，容易出现不可预期的运行异常，建议在模块顶部添加Option Explicit强制变量声明
• 使用ColorIndex属性匹配颜色：ColorIndex是基于Excel早期版本固定调色板的索引值，仅支持56种颜色，遇到自定义颜色、修改过默认调色板的场景时，不同颜色会返回相同索引值，直接导致统计错误
• 变量使用Integer类型存储统计结果：Integer最大值仅为32767，当统计范围单元格总数超过该值时会触发溢出错误，需替换为Long类型
• 存在冗余代码：Set rCell = CountRange无实际作用，后续For Each循环会自动给rCell赋值，多余赋值可能干扰变量初始状态

修正后可直接使用的代码 #

' 以下Option Explicit需放在当前模块最顶部
Option Explicit

Function GetColorCount(CountRange As Range, CountColor As Range) As Long
    Dim CountColorValue As Long
    Dim TotalCount As Long
    Dim rCell As Range
    ' 读取参考色的完整RGB值，适配所有自定义颜色
    CountColorValue = CountColor.Interior.Color
    TotalCount = 0
    For Each rCell In CountRange
        If rCell.Interior.Color = CountColorValue Then
            TotalCount = TotalCount + 1
        End If
    Next rCell
    GetColorCount = TotalCount
End Function

补充使用说明 #

• 如果需要统计条件格式生成的填充色，将判断条件中的rCell.Interior.Color替换为rCell.DisplayFormat.Interior.Color即可
• 修改单元格填充色不会自动触发函数重算，可以在函数内第一行添加Application.Volatile声明，修改颜色后按F9快捷键手动刷新就能更新统计结果

内容的提问来源于stack exchange，提问作者Summer McKnight-Juul Andersen