'自定义公式-按ALT+F11-插入-模块(统计颜色)
Function 统计颜色求平均值(y As Range, rng, b As String)
Application.Volatile
For Each x In rng
If x.Interior.ColorIndex = y.Interior.ColorIndex Then
a = a + x * 1
n = n + 1
End If
Next x
If b = 0 Then
统计颜色求平均值 = a
Else
If b = 1 Then 统计颜色求平均值 = n
End If
If 统计颜色求平均值 = 0 Then 统计颜色求平均值 = ""
End Function