使用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
效果如下图: