vba 数组长度获取

在 VBA 中，你可以使用 `UBound` 函数来获取数组的长度。`UBound` 函数返回一个整数，表示数组的上限（即数组的最后一个元素的索引）。结合数组的下限（通常为 0），你可以计算数组的长度。

以下是一个示例代码：

Sub GetArrayLength()
    Dim arr(5) As Integer
    Dim length As Integer
    
    length = UBound(arr) + 1 ' 获取数组长度
    
    MsgBox "数组长度为：" & length
End Sub

在这个示例中，我们声明了一个包含 6 个元素的整型数组 `arr`，然后使用 `UBound(arr)` 获取数组的上限，再加 1 即可得到数组的长度。最后，我们使用 `MsgBox` 函数显示数组的长度。

注意：如果数组是动态分配的（例如通过 `ReDim` 语句），则需要在调用 `UBound` 函数之前进行分配，否则将返回 -1。