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

时间:2016-05-09 20:14:52

标签: excel excel-vba vba

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

Dim n as Integer
n = UBound(Array1)

1 个答案:

答案 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