Function Sumcol(sum_rng As Range, col As Range)
Application.Volatile '按背景色计数,sum-rng指数据区域,col指参照颜色所在的单元格
Dim rng As Range
For Each rng In sum_rng
If rng.Interior.ColorIndex = col.Interior.ColorIndex Then
Sumcol = Sumcol + 1
End If
Next
End Function
可以统计任意背景色的单元格个数。
本回答被网友采纳