此代码是否正确用于确定Excel VBA中单维变体数组中的元素数。假设我有一个名为Array1的变量数组,其中包含k个元素。
Dim n as Integer
n = UBound(Array1)
答案 0 :(得分:21)
要获得准确的计数,您需要执行UBound - LBound + 1
。这是因为数组不必从索引1转到n,它们基本上可以从你想要的任何索引开始。这是一个从3到7的例子,共有5个元素(3,4,5,6和7):
Sub tgr()
Dim Array1(3 To 7) As Variant
Dim lNumElements As Long
lNumElements = UBound(Array1) - LBound(Array1) + 1
MsgBox lNumElements
End Sub