你要取的实际值吧？
你已经定义a(10) 那他所有元素就是10个。 你要判断其他是否空值 就用循环判断
s=0
for i=0 to 9
if a(i)<>"" then s=s+1
next
print "数组共有有效元素：";s
VBA中是application.count(arr),你试试。
Sub s(arr())
MsgBox ubound(arr)-lbound(arr)+1
End Sub
Dim arr(2)
dim length = UBound(arr) - LBound(arr) + 1
UBound(a) - LBound(a) + 1
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024