分别计数不同颜色的单元格

VBA代码

Function GetColorCount(CountRange As Range, CountColor As Range)

Dim CountColorValue As Integer
Dim TotalCount As Integer
CountColorValue = CountColor.Interior.ColorIndex
Set rCell = CountRange
For Each rCell In CountRange
    If rCell.Interior.ColorIndex = CountColorValue Then
        TotalCount = TotalCount + 1
    End If
Next rCell
GetColorCount = TotalCount
End Function