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

效果如下圖：