Excel VBA IsEmpty函数

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