新浪博客

在VBA代码中如何判断单元格是否为空

2018-09-25 17:05阅读:
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。如果单元格中有我们看不见的空格,该函数也会认为该单元
格不为空。 其他判断空单元格的方法
在VBA代码中,如果要判断单元格A1是否为空单元格,也可以使用下列方法:
1. Cells(1, 1) = '' 或 Range(“A1”)= ''
2. Len(Cells(1, 1)) = 0 或Len(Range(“A1”))= 0
3. Cells(i, 1) = vbNullString 或Range(“A1”)= vbNullString
4. Application.WorksheetFunction.CountBlank(Cells(1,1))
5. 为了防止单元格中有空格,可以使用: Len(Trim(Cells(i, 1))) = 0

我的更多文章

下载客户端阅读体验更佳

APP专享