怎样统计标黄单元格的数量?
有一个非常特别的方法。函数法。
思路是:手工编写一个函数→之后调用这个函数来按颜色统计。
下面开始。
复制下面的函数,不用写了。
Function SumColor(sumrange As Range, col As Range)
Dim rng As Range
For Each rng In sumrange
If rng.Interior.ColorIndex = col.Interior.ColorIndex Then
SumColor = Application.Sum(rng) + SumColor
End If
Next rng
End Function
下面开始调用。
在D1,输入=sumcolor(a1:a20,a1),假设数据在A1:A20,A1是带颜色的。