计算单元格值并存储在varible中以供以后使用vba使用

Question

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

我有一个excel文档，有三列保存Green，Amber和Red的数据。对于每一行，它们可以具有相同的值或不同的值，每行的全部值将是： - 如果三个值中的一个或多个为红色，则全部值为红色，如果没有红色且一个或多个值为Amber，如果这些值都不存在则全部为琥珀色则为绿色。我需要计算每种颜色的总值的数量，但是在特定的单元格范围内。我有一些脚本可以找到我需要进行搜索的范围的第一行编号和最后一行编号： -

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"))