VBA判断A列中是否有数据

用下面代码就可以实现：

Sub 判断()
a = WorksheetFunction.CountA(Range("a:a"))
If a = 0 Then
    MsgBox "A列没有数据"
Else
    MsgBox "A列有" & a & "个数据"
End If
End Sub

本回答被提问者和网友采纳

dim r%
With Sheets("Sheet1") //表名Sheet1具体看你自己定义的
r=.Range("A:A").end(xlup).row//获取A列中最后一个有数据行的行号
End With

IF Application.WorksheetFunction.CountA(Range("A:A")) > 0 then MsgBox("A列有数据的行数大于0")