根据值和行数更改背景颜色

我正在使用VBA，我想请求关于我创build的Excel的帮助。 我想改变背景颜色，如果一个单元格有价值，如果行数是偶数。 这是我的代码：

Sub ChangeColor() Dim rw as Variant Dim rng As Range Set rng = Range("B10:H10000") For each rw In rng.Rows If rw.Row Mod 2 = 0 And (I dont know what to put here) Then rw.Interior.Color = RGB (183,222,232) End If Next rw End Sub 

如果我可能会问，如何使我的应用程序的处理速度比正常速度更快，因为input的数据（或多或less为1000+或接近10k）会减慢速度。

我已经解决了行数甚至，请帮助我的价值。

Answer 1

CF应该比VBA快很多：

我select的公式是：

 =AND(ISEVEN(ROW()),B10<>"")