1、这里给出一个将隔行加上阴影的过程,在数据表中有多行数据时,为了阅读方便,通常采用隔行添加阴影的方法对相邻行数据以示区别,具体过程见下一步。
2、Sub ShadeEverySecondRow()
Dim lRow As Long
lRow=2
Do Until IsEmpty(Cells(lRow,1))
Cells(lRow,1).EntireRow.Interior.ColorIndex=15
lRow=lRow+2
Loop
End Sub
3、该过程也可以这样写:
Sub ShadeEverySecondRow()
Dim lRow As Long
lRow = 2
Do While Not IsEmpty(Cells(lRow, 1))
Cells(lRow, 1).EntireRow.Interior.ColorIndex = 15
lRow = lRow + 2
Loop
End Sub