用颜色计数细胞

我想统计填充特定颜色的单元格的数量。

例如。 less数细胞是红色的,less数是绿色less数是黄色的。

现在我要计算总的红色/绿色/黄色。

有什么想法,我怎么能适用于合并单元格也。

一个及时的回应将不胜感激。

问候。

在这里输入图像说明

请按照下面链接中的说明进行操作,并在链接下方提到更改。

https://support.microsoft.com/en-us/kb/2815384

更改:将链接中指定的脚本更改为以下内容,因为Microsoft的脚本使用可能会计算其他颜色阴影的颜色索引。

Function CountColor(range_data As range, criteria As range) As Long Dim datax As range Dim xcolor As Long xcolor = criteria.Interior.color For Each datax In range_data If datax.Interior.color = xcolor Then CountColor = CountColor + 1 End If Next datax End Function