VBA中的UBound函数及其在二维数组中的应用

在VBA中，UBound是一个用于获取数组上限的函数。它可以返回数组在一个特定维度上的最大索引号。当然，还有一个LBound函数用于返回数组的下限。本文主要介绍在二维数组中使用UBound函数的相关操作。

二维数组

在VBA中，二维数组就是由两个维度组成的数组。我们通常可以在代码中使用Excel工作表的行和列来模拟这种二维数组。

下面是一个定义含有两个维度的数组的示例：

Dim MyArray(1 To 3, 1 To 3) As Integer

我们可以通过使用UBound函数来确定数组的上限：

msgbox "第一维上限是：" & UBound(MyArray, 1)
msgbox "第二维上限是：" & UBound(MyArray, 2)

以上代码将分别输出MyArray数组的第一维和第二维的上限。

用法

在VBA中，UBound函数有两个参数：数组和维度。在二维数组中，我们需要使用第一个参数指定数组，第二个参数指定我们要在哪个维度上查找上限。

下面是使用UBound函数在二维数组中获取上限的示例：

Dim MyArray(1 To 3, 1 To 3) As Integer

    MyArray(1, 1) = 1
    MyArray(1, 2) = 2
    MyArray(1, 3) = 3
    MyArray(2, 1) = 4
    MyArray(2, 2) = 5
    MyArray(2, 3) = 6
    MyArray(3, 1) = 7
    MyArray(3, 2) = 8
    MyArray(3, 3) = 9

    Dim i As Integer
    For i = 1 To UBound(MyArray, 1)
        Debug.Print "第" & i & "行最后一列的值为：" & MyArray(i, UBound(MyArray, 2))
    Next i

以上代码中，我们在二维数组MyArray中创建了一些值。接下来，我们遍历数组的第一维，并使用 UBoud 函数在第二维上获取上限，从而可以获取每一行中最后一列的值。

总结

在VBA中，使用UBound函数可以让我们轻松获取数组上限。在二维数组中，我们需要使用第二个参数指定需要在哪个维度上查找上限。了解这些细节，可以让我们更加高效地使用这一函数。