如果范围包含0，则在VBA中结束sub

Question

If WorksheetFunction.CountA(Range("$G:$G")) = 0 Then
MsgBox "One of the cell contains 0"
Exit Sub
End If

以上内容似乎不适用于整个范围。如果我键入"G1"，它就起作用了。

G的范围可以根据它从另一张表中提取的数据量而变化。当其中一个单元格在原始工作表中为空时，新工作表的位置为0。

Answer 1

根据这篇文章的标题和评论，我想你想做一些类似的事情

If WorksheetFunction.CountIf(Range("$G:$G"), "=0") > 0 Then
MsgBox "One of the cell contains 0"
Exit Sub
End If