Excel 使用VBA的条件格式

我想要使用条件格式的正确代码。我有四个季度销售表（“K8:K207”）的数据。我想在有3个条件的情况下应用条件格式：

将大于10万年的K列（年销售总额）突出显示为绿色

在90000到100000之间为琥珀色

不到90000个为红色

---

请帮助我如何使用循环编写代码。

这不需要循环。您只需向range对象添加一个新的FormatCondition即可

lLow = 90000
lHigh = 100000

Set rng = Range("K8:K207")
rng.FormatConditions.Delete  ' delete any pre-existing formatting

' add greater than condition
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, Formula1:="=" & lHigh)
   .Interior.Color = rgbLimeGreen
End With

' add middle condition
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlBetween, Formula1:="=" & lLow, Formula2:="=" & lHigh)
   .Interior.Color = rgbGold
End With

' add less than condition
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="=" & lLow)
   .Interior.Color = rgbRed
End With