Excel VBA IsEmpty函数

2025-03-17 21:08:23

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

声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢