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
隔行填充,可以方便查看数据
领取专属 10元无门槛券
私享最新 技术干货