Question

EXCEL VBA 判断A列空值 如果 A1:A30 单元格为空，则弹出对话框“空了”并说明有几个，位置在哪~

额~是a1：a30中有空格，汗刚才打错了

Answer 1

你没写清楚是要查空单元格啊还是 查单元格内容有空格.汗一个先.两段代码都贴给你吧
在工作表名称上点右键,选查看代码,粘贴下面的代码
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

Answer 2

sub rowmsg()
For i = 1 To 30
If Range("A" & i) = "" Then
a = a & "," & i & "行"

End If
Next
MsgBox "以下行为空:" & a
end sub