Function ColorRangeSum(数组行 As Range, Optional 目标颜色行A As Range) As Integer
Application.Volatile '将用户定义的函数标记为可变函数。 每当工作表上的任何单元格发生计算时, 都必须重新计算可变函数
Dim ColorCell As Range
For Each ColorCell In 数组行
If ColorCell.Interior.ColorIndex = 目标颜色行A.Interior.ColorIndex Then ColorRangeSum = ColorRangeSum + 1
Next ColorCell
End Function