交替填充截图
Sub test_fill()
Dim i, j As Long
Dim odd, even As Integer
Dim tianchong As Integer
odd = 2
even = 15
Sheets(1).Activate '选中指定的第一个工作表（索引号为1），并使其成为活动工作表。
For i = 2 To Range("A1048576").End(xlUp).Row
'对标题行之外的表格范围，按行交替填充单元格颜色
If i Mod 2 = 1 Then '根据i的奇偶性分别使用odd或even的值来设置颜色值。
tianchong = odd
Else
tianchong = even
End If
'开始填充当前行单元格
For j = 1 To Cells(1, 16384).End(xlToLeft).Column
Sheets(1).Cells(i, j).Interior.ColorIndex = tianchong
Next j
Next i
End Sub
