vba ubound函数用法

VBA中UBound函数的用法

概述：

UBound函数是VBA（Visual Basic for Applications）中的一个内置函数，用于返回数组的上限（即数组中最大的索引值）。这对于处理动态大小的数组或需要遍历整个数组的场合非常有用。

语法：

UBound(arrayName, dimension)

• arrayName：必需参数，表示要检查其上限的数组变量的名称。
• dimension：可选参数，指定要返回其上限的数组维度。如果省略此参数，默认值为1（即第一维）。对于多维数组，可以指定不同的维度来获取相应维度的上限。

返回值：

返回一个Long类型的值，表示指定数组维度的最大索引值。

示例代码：

以下是一些使用UBound函数的示例：

1. 一维数组：

Sub Example1() Dim arr(5 To 10) As Integer MsgBox UBound(arr) ' 显示10 End Sub

在这个例子中，我们定义了一个一维数组arr，其索引范围从5到10。UBound(arr)将返回10，因为这是数组的最大索引值。

1. 多维数组：

Sub Example2() Dim multiArr(1 To 3, 4 To 6) As Variant MsgBox UBound(multiArr, 1) ' 显示3 MsgBox UBound(multiArr, 2) ' 显示6 End Sub

在这个例子中，我们定义了一个二维数组multiArr。UBound(multiArr, 1)返回第一维的上限3，而UBound(multiArr, 2)返回第二维的上限6。

1. 动态数组：

Sub Example3() Dim dynArr() As String ReDim dynArr(1 To 5) MsgBox UBound(dynArr) ' 显示5 ' 重新调整数组大小 ReDim Preserve dynArr(1 To 8) MsgBox UBound(dynArr) ' 显示8 End Sub

在这个例子中，我们首先定义并初始化了一个动态数组dynArr，然后使用ReDim语句调整其大小。在每次调整后，我们使用UBound函数来显示新的上限。

注意事项：

• 如果指定的数组未初始化或为空，则使用UBound函数会导致运行时错误。
• 对于固定大小的数组，可以使用LBound函数来获取数组的下限（最小索引值）。
• 在处理多维数组时，务必明确指定要查询的维度，否则默认会返回第一维的上限。

通过理解和使用UBound函数，您可以更有效地管理和操作VBA中的数组数据。