1、需求：
有1个表格，每一行都标注了不同的底色，现在需要统计各种底色出现的个数：
2、代码实现
要实现这种功能，比较好的方法是把它做成1个Function，然后做成1个加载宏，这样就可以在任意打开的Excel里使用了。
要做这个Function，我们需要传递2个参数：
- RngSrc：要统计的单元格范围
- RngCriteria：标有要统计的颜色的单元格
第1个参数肯定是必须的，设置第2个参数的目的是因为，单元格底色所代表的数字我们正常是记不住的，传入1个设置了底色的单元格参数是比较方便的，实现的代码很简单：
代码语言：javascript复制'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内置函数是没有什么区别的。
