Excel如何统计指定颜色填充单元格及ColorCount函数问题排查

• 公式调用方式错误
  你看到的语法说明里的双引号是参数占位符标记，不是实际输入公式时需要输入的内容。Excel公式规则里，只有文本类型的参数需要用双引号包裹，引用单元格/单元格区域时直接选择对应范围即可，加双引号会把参数识别为普通文本，导致函数无法正确读取你指定的样本单元格的填充色值，匹配逻辑失效，才会出现所有带填充色单元格都被计入的异常。
• 原VBA代码存在稳定性缺陷
  原代码用Interior.ColorIndex读取颜色，该属性对应工作簿的调色板索引值，不同工作簿调色板配置不同、使用自定义RGB/主题色时，很容易出现同色匹配失败、异色误判的问题；同时原代码没有加易失性标记，修改单元格填充色后不会自动更新统计结果，需要手动按F9刷新。

1. 替换原有VBA代码为以下修正版本

Function ColorCount(ColorCell As Range, DataRange As Range)
    Application.Volatile True
    Dim Data_Range As Range
    Dim Cell_Color As Long
    Cell_Color = ColorCell.Interior.Color
    ColorCount = 0
    For Each Data_Range In DataRange
        ' 处理合并单元格场景，避免重复计数
        If Data_Range.MergeCells Then
            If Data_Range.Address = Data_Range.MergeArea.Cells(1, 1).Address Then
                If Data_Range.Interior.Color = Cell_Color Then
                    ColorCount = ColorCount + 1
                End If
            End If
        Else
            If Data_Range.Interior.Color = Cell_Color Then
                ColorCount = ColorCount + 1
            End If
        End If
    Next Data_Range
End Function

修正点说明：

• 用Interior.Color直接读取RGB颜色值，替代不稳定的ColorIndex，匹配精度更高
• 加了Application.Volatile True标记，函数会随表格重算自动更新结果
• 增加合并单元格兼容逻辑，避免合并区域被重复计数
• 显式初始化计数器为0，避免异常值干扰

2. 用正确语法调用函数
   公式不需要给单元格/区域参数加双引号，格式为：
   =ColorCount(样本颜色所在单元格, 待统计的单元格区域)
   举个实际用例：如果要取A2单元格的填充色为统计目标，统计D2:D100区域内同色单元格的数量，公式直接写为=ColorCount(A2,D2:D100)即可，不管单元格是空值还是有文本，只要填充色和样本单元格一致就会被计数。

补充说明：该函数仅能统计手动设置的单元格填充色，无法识别条件格式生成的填充色。

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