vba - IF Null 退出子代码

Question

我正在尝试检查单元格是否为空或空，它会显示一条消息并退出子。这是我的代码:

With Worksheets(1).[D3:D4, D6:D14]
    If WorksheetFunction.CountA(.Cells) = 0 Then
        MsgBox "Nothing to generate" & vbNewLine & _
        "Set parameters and click generate."
        Exit Sub
    End If
End With

但是该代码仅在整个 [D3:D4, D6:D14] 时才有效。是空的。我希望它退出 sub 即使只有一个单元格是空的。所有单元格都需要有内容才能继续子。请帮忙。

Answer 1

您需要在范围内搜索，请尝试以下代码:

Sub CheckEmptyCellsinRange()

Dim Rng     As Range
Dim cell    As Range

Set Rng = Worksheets(1).[D3:D4, D6:D14]

For Each cell In Rng
    If IsEmpty(cell) Or IsNull(cell) Then
        MsgBox "Nothing to generate" & vbNewLine & _
        "Set parameters and click generate."
        Exit Sub        
    End If

Next cell

End Sub