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

使用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

效果如下图：