Excel VBA IsEmpty函数

1、这里给出一个将隔行加上阴影的过程，在数据表中有多行数据时，为了阅读方便，通常采用隔行添加阴影的方法对相邻行数据以示区别，具体过程见下一步。

2、Sub ShadeEverySecondRow() Dim lRow As Long lRow=2 Do UntilIsEmpty（Cells(lRow,1)） Cells(lRow,1).EntireRow.Interior.ColorIndex=15 lRow=lRow+2 LoopEnd 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 LoopEnd Sub