vba 判断单元格是否为空 

Sub setBlankRowColor()
    Dim lngLastRow As Long
    Dim i As Long
     '获取工作表中已使用区域最后一行的行号
     lngLastRow = Cells(Rows.Count,1).End(xlUp).Row
        '遍历行
     For i = 1 To lngLastRow
        '判断每行中第1列的单元格是否为空
        If IsEmpty(Cells(i, 1)) Then
            '若为空则设置该行相应单元格背景色为灰色
            Cells(i, 1).Resize(1,6).Interior.Color = RGB(225, 225, 225)
        End If
    Next i
End Sub

 

posted @ 2024-01-17 15:57  paoPaoLong_liu  阅读(178)  评论(0)  编辑  收藏  举报