excel 宏，如何计算一列数的个数？

VBA里没这函数...
有 .count 属性 但是它不管你有没有数据的.只统计给定区域的单元格个数

我帮你想了个笨办法

Sub Macro1()
Dim s As Integer
Range("b1").Value = "=counta(a:a)" 'B1 为临时借用的.可以改成任意一个你用不到空白单元格.
s = Range("b1").Value
Range("b1").Clear
MsgBox s
End Sub

楼上 bergyan 正解.
不过为什么我去试了下
x=worksheetfuction.counta([a:a])不行.
因为你打错一个字了....
x=WorksheetFunction.CountA([a:a])

他们所说的是函数，不是宏。。。。VBA可以调用EXCEL函数的。。如下

x=worksheetfuction.counta([a:a])

=countif(A:A,">0")

前提是A列类型是数值