VBA根据单元格底色统计个数

1、需求：

有1个表格，每一行都标注了不同的底色，现在需要统计各种底色出现的个数：

2、代码实现

要实现这种功能，比较好的方法是把它做成1个Function，然后做成1个加载宏，这样就可以在任意打开的Excel里使用了。

要做这个Function，我们需要传递2个参数：

RngSrc：要统计的单元格范围
RngCriteria：标有要统计的颜色的单元格

第1个参数肯定是必须的，设置第2个参数的目的是因为，单元格底色所代表的数字我们正常是记不住的，传入1个设置了底色的单元格参数是比较方便的，实现的代码很简单：

'RngSrc         要统计的单元格范围
'RngCriteria    标有要统计的颜色的单元格
Public Function CountColor(RngSrc As Range, RngCriteria As Range) As Long
    Application.Volatile True
    
    Dim lColor As Long
    lColor = RngCriteria.Interior.Color
    Dim rng As Range
    For Each rng In RngSrc
        If rng.Interior.Color = lColor Then
            CountColor = CountColor + 1
        End If
    Next
End Function

如果做成了加载宏的，这个和使用普通的Excel内置函数是没有什么区别的。