返回目录：excel表格制作
假设这些单元格在一列，选抄中第一个待统计颜色的单元格，同时按Alt和F11，右键点左边窗口的Sheet1，在右边新出来的窗口粘zhidao贴如下代码：
Sub test()
Dim i, j, Counter As Integer
i = Selection.Interior.ColorIndex
Counter = 1
For j = 1 To 1000
Selection.Offset(1, 0).Select
If Selection.Interior.ColorIndex = i Then Counter = Counter + 1
Next j
MsgBox Counter
End Sub
然后按F5，完成
如果行数比较多，把上面的1000改了。
这个问题有点复杂，需要先确定以下信息：
颜色，是zhidao如何形成的，根据形成的方式不同，统计使用的方法也是不同的
a.使用单元格格式，人为设置的单元格图案
b.使用条件格式，满足某个(/些)条件后形成的
在上述a的情况下，设置的颜专色值是属多少。比如在屏幕上可以被称为“红色”的颜色，其实有好多，需要精确定义这个“颜色”的值
确定完以上信息，才能设计一个合适的统计方法，公式也好、VBA也好，都需要上述信息
1、电抄脑打开Excel表格。
2、电脑打开Excel表格后，Alt+F11进入宏，然后点击插袭入模块。
3、点击插入模块后，输入代码：
Function SUMColor(rag1 As Range, rag2 As Range)
Application.Volatile
For Each i In rag2
If i.Interior.ColorIndex = rag1.Interior.ColorIndex Then
SUMColor = SUMColor + 1
End If
Next
End Function
4、输入代码后百，不用关闭宏，直接返回Excel界面，在一个单元格中输入公式=SUMColor(A1,$A$1:$B$6)，A1就是要筛选的颜色的单元格，度$A$1:$B$6是要筛选的区域，框选区域后，按F4键就知可以了。
5、输入公式后道，就可以得到带颜色的单元格个数了。
函数基本都不能直接统计颜色知，建议使用筛选功能实现。然后鼠标拉一下看统计就行了。道
如果不愿意手动，那就比较复杂了。
需要使用get.cell获取颜色，然后统计：
比如数据在内a3，点选c3单元格，参考使用公式：
=GET.CELL(63,Sheet1!A3)
然后c3输入 定义的名称，比如我用的 =ys
就可以出容现颜色代码，然后统计