按下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是需要统计的区域,根据你的需求自己改。我的例子如图。