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

我正在使用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）

---

我已经解决了行数为偶数的问题，请帮助我确定值。

CF应该比VBA快得多：

我选择的公式是：

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

=和（ISEVEN（ROW（）），B10“”）

为什么不使用条件格式？使用类似于

=和（MOD（ROW（），2）=0，NOT（ISBLANK（A1））

的公式。在单元格上设置条件格式，还是将其放置在宏中？我正在考虑像我创建的代码那样放置一个if语句，这样就可以通过编程来完成。无论如何，感谢您的想法和帮助，但我仍然选择在宏“条件格式”中执行此操作。宏“条件格式”是工具栏“主页”选项卡上“样式”部分中的一个控件。您需要选择范围，然后单击“新建规则”并使用公式。这将比运行上面的代码更动态地更新，因此它可能是最好的解决方案。如果你在谷歌上搜索，我相信如果你需要更多的帮助，你可以找到一个创建条件格式的分步教程。谢谢你的回答。我想我要试一试。感谢rdh和Davisi的帮助，我的公式正确的家伙

=和（MOD（ROW（），2）=0，而不是（ISBLANK（B10:H10000））