Vba：如何检查单元格是否为空（带有示例）

您可以使用以下基本语法来检查 VBA 中的单元格是否为空：

 SubCheckBlank ()
    Dim i As Integer

    For i = 2 To 13
        If IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Empty ”
        Else
        Result = “ Cell is Not Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

此特定示例检查范围A2:A13中的每个单元格是否为空，然后将“单元格为空”或“单元格不为空”分配给范围B2:B13中的每个匹配单元格。

以下示例展示了如何在实践中使用此语法。

示例：如何使用 VBA 检查单元格是否为空

假设我们在 Excel 中有以下篮球队名称列表：

假设我们要检查区域A2:A13中的每个单元格是否为空，然后将结果显示在区域B2:B8中的相应单元格中。

我们可以创建以下宏来执行此操作：

 SubCheckBlank ()
    Dim i As Integer

    For i = 2 To 13
        If IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Empty ”
        Else
        Result = “ Cell is Not Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

当我们运行这个宏时，我们会收到以下输出：

B 列告诉我们 A 列中每个相应的单元格是否为空。

如果 A 列中的值不为空，您还可以使用以下宏简单地在 B 列中返回团队名称本身：

 SubCheckBlank ()
    Dim i As Integer

    For i = 2 To 13
        If IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Empty ”
        Else
        Result = Range(" A " & i).Value
        End If
    Range(" B " & i) = Result
    Next i
End Sub

当我们运行这个宏时，我们会收到以下输出：

如果单元格不为空，B 列现在会返回 A 列中的团队名称。

注意：您可以在此处找到 VBA IsEmpty方法的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何计算字符串中字符的出现次数
VBA：如何检查一个字符串是否包含另一个字符串
VBA：“如果”单元格包含“的公式