nnsea 发表于 2023-10-26 23:43:21

根据颜色计数


Function CountColor(x As Range, ary2 As Range)
Application.Volatile
For Each i In ary2
If i.Interior.ColorIndex = x.Interior.ColorIndex Then
CountColor = CountColor + 1
End If
Next
End Function
页: [1]
查看完整版本: 根据颜色计数