统计带有背景色的单元格的个数

按下alt+f11,插入 模块

写下过程

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

然后在你需要统计的工作表里面找个空白的单元格（例如D2）填充你要统计个数的颜色，然后在隔壁（+_+）单元格写下：=SUMColor(D2,$A$1:$C$22)。其中$A$1:$C$22是需要统计的区域，根据你的需求自己改。我的例子如图。