VBA表格实现隔行填充不同颜色

VBA可以使用Range.Interior.ColorIndex属性来实现隔行填充颜色。

例如，以下代码可以实现隔行填充颜色：

Sub FillColor()

Dim i As Integer'定义

For i = 1 To Range("A1").CurrentRegion.Rows.Count'确定行范围，循环

If i Mod 2 = 0 Then'如果偶数行

Range("A" & i).Interior.ColorIndex = 3'填充颜色

Else

Range("A" & i).Interior.ColorIndex = 4

End If

Next i

End Sub

隔行填充，可以方便查看数据