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

Question

我正在使用VBA，我想就我创建的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

如果我可能会问如何让我的应用程序比正常情况更快，因为它会因输入的数据（或多或少1000+或差不多10k）而变慢。

我已经解决了行数是偶数，请帮助我获得价值。

Answer 1

CF应该比VBA快得多：

我选择的公式是：

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