slogan
专业知识问答平台！
'定义公式-按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
©本文版权归作者所有，任何形式转载请联系我们：xiehuiyue@offercoming.com。
