Question

EXCEL VBA 判断A列空值 如果 A1:A30 单元格为空，则弹出对话框“空了”

Answer 1

Sub aaa()
For i=1 to 30
If cells(i,1)="" then
n=n+1
end if
next
if n=30 then msgbox ("空了")
end sub

追问

有没有短点的
我自己写的也是这样的

追答

If WorksheetFunction.CountIf(Range("A1:A30"), "") = 30 Then MsgBox ("空了")

Answer 2

Sub 按钮1_单击()
If Range("A1:A30").Find("").Row > 0 Then
MsgBox "空了"
End If
End Sub

Answer 3

Sub 判断()
If Application.COUNTA(Range("A1:A30")) = 0 Then MsgBox "空了"
End Sub

Answer 4

Sub 判断()
For i = 1 To 30
If Cells(i, 1) = "" Then s = s + 1
Next
If s = 30 Then MsgBox "空了"
End Sub