如何在 Excel VBA 中获取数组的长度？

在 Excel VBA 中，我们可以使用 UBound 函数来获取数组的上界，从而得到数组的长度。

下面是一个简单的示例：

Sub getArrayLength()
    Dim arr(1 To 10) As Integer
    Dim length As Integer
    
    ' 初始化数组
    For i = 1 To 10
        arr(i) = i
    Next
    
    ' 获取数组长度
    length = UBound(arr)
    
    ' 输出数组长度
    MsgBox "数组长度为：" & length
End Sub

在上面的示例中，我们创建了一个包含 10 个整数的数组 arr，然后使用 UBound 函数获取了数组的上界，从而得到了数组的长度。

另外，在 VBA 中还有一个类似的函数 LBound，它可以用来获取数组的下界。

代码片段

' 定义一个整型数组
Dim arr(1 To 10) As Integer

' 获取数组的长度
Dim length As Integer
length = UBound(arr)

' 输出数组长度
MsgBox "数组长度为：" & length