如果在excel VBA中判断A列中的空白单元格，遇到后就终止程序

在工作表名称上点右键,选查看代码,粘贴下面的代码
Sub 检查空单元格()
Dim rng As Range, arr()
For Each rng In Range("A1:A30")
If rng = "" Then
N = N + 1
ReDim Preserve arr(1 To N)
arr(N) = rng.Address(0, 0)
End If
Next
MsgBox "A1:A30有" & N & "个空单元格," & vbCrLf & "分别是:" & Join(arr, ",")
End Sub

Sub 检查空格()
Dim rng As Range, arr()
For Each rng In Range("A1:A30")
If InStr(rng, " ") <> 0 Then
N = N + 1
ReDim Preserve arr(1 To N)
arr(N) = rng.Address(0, 0)
End If
Next
MsgBox "A1:A30包含空格的单元格有" & N & "个," & vbCrLf & "分别是:" & Join(arr, ",")
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/re3fejf3f.html