使用VBA对指定的单元格赋值并填充颜色

======================================================

代码区域

======================================================



Sub row应用()
For Each rw In Rows("1:13")
If rw.Row Mod 2 = 0 Then
rw.Interior.ColorIndex = 3
rw.Value = 99
End If
Next
End Sub


效果如下图:

VBA对指定单元格填充颜色并且赋值_赋值