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