使用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
效果如下图：
原文：http://www.cnblogs.com/OliverQin/p/6201371.html