對一些特殊的數(shù)據(jù)標(biāo)注了顏色，想要快速求出這些區(qū)域的和，有兩種方法：

Function SumByColor(Ref_color As Range,Sum_range As Range)

Application.Volatile

Dim iCol As Integer

Dim rCell As Range

iCol = Ref_color.Interior.ColorIndex

For Each rCell In Sum_range

If iCol = rCell.Interior.ColorIndex Then

SumByColor = SumByColor + rCell.Value

End If

Next rCell

End Function

Function CountByColor(Ref_color As Range, CountRange As Range)

Application.Volatile

Dim iCol As Integer

Dim rCell As Range

iCol = Ref_color.Interior.ColorIndex

For Each rCell In CountRange

If iCol = rCell.Interior.ColorIndex Then

CountByColor = CountByColor + 1

End If

Next rCell

End Function

圖片發(fā)自簡書App