excel中单维变体数组中的元素数

Question

此代码是否正确用于确定Excel VBA中单维变体数组中的元素数.假设我有一个名为Array1的变量数组,其中包含k个元素.

Dim n as Integer
n = UBound(Array1)

Answer 1

要获得准确的计数,您需要这样做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