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

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

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

代码区域

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

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

效果如下图：