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

效果如下图:

 

posted @ 2016-12-20 09:19  OLIVER_QIN  阅读(3627)  评论(0编辑  收藏  举报