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
在代码中,我们使用了IsEmpty函数来检查单元格是否为空。
IsEmpty函数
IsEmpty函数返回布尔值(Boolean值),指明某单元格是否为空。如果单元格为空,则返回True;如果不为空,则返回False。
注意,单元格必须真的是空单元格,该函数才返回True。如果单元格中有我们看不见的空格,该函数也会认为该单元
