计数单元格值并存储在一个variables中，以便以后使用vba

有人能指出我正确的方向，我不知道如何最好地解决这个问题，以解决我的问题，并做我需要做的事情。

我有一个excel文件，有三列，包含绿色，琥珀色和红色的数据。 对于每一行它们可以具有所有相同的值或不同的值，对于每一行，总的值将是： – 如果三个值中的一个或多个是红色，那么总的值是红色的，如果没有红色和一个或多个的值是琥珀如果这些值都不存在，那么总的来说是琥珀色，那么它将是绿色的。 我需要计算每个颜色的整体值的数量，但在特定的单元格范围内。 我有一些脚本，它会find我需要search的范围的第一行号码和最后一行号码： –

mediumStartRow = Range("H:H").Find(what:="Medium", after:=Range("H21")).Row mediumEndRow = Range("H:H").Find(what:="Medium", after:=Range("H21"), searchdirection:=xlPrevious).Row 

我不清楚为什么要解决这个问题。 任何人都可以指向正确的方向。

我试过这样的事情：

 With Range("AS:AU" & mediumStartRow("AS:AU" & mediumEndRow)) .Formula = "=IF(COUNTIF(Range"=Red")>0,"Red",IF(COUNTIF(Range,"=Amber")>0,"Amber","Green"))" End With 

这是excel文档的一个例子

Answer 1

在一些变化中使用这个来得到你要找的东西

  =IF(COUNTIF(C:C, "red")>2, "red", IF(COUNTIF(C:C, "amber")>2, "amber", "green"))