vba 二维数组

VBA中的二维数组是一个有两个维度的数组。可以通过声明一个带有两个下标的数组来创建二维数组。例如：

Dim myArray(1 To 5, 1 To 3) As Integer

上面的代码创建了一个5行3列的整数类型的二维数组。可以通过下标来访问数组元素，例如：

myArray(2, 3) = 10

上面的代码将数组的第2行第3列的元素赋值为10。注意，数组的第一个下标代表行数，第二个下标代表列数。

相关问题

vba 二维数组转置

在VBA中，可以使用循环和临时变量来实现二维数组的转置。下面是一个示例代码：

Sub TransposeArray()
    Dim arrInput As Variant
    Dim arrOutput As Variant
    Dim numRows As Integer
    Dim numCols As Integer
    Dim i As Integer
    Dim j As Integer
    
    ' 输入的二维数组
    arrInput = Array(Array(1, 2, 3), Array(4, 5, 6), Array(7, 8, 9))
    
    ' 获取数组的行数和列数
    numRows = UBound(arrInput, 1) - LBound(arrInput, 1) + 1
    numCols = UBound(arrInput, 2) - LBound(arrInput, 2) + 1
    
    ' 初始化输出的二维数组
    ReDim arrOutput(1 To numCols, 1 To numRows)
    
    ' 转置数组
    For i = 1 To numRows
        For j = 1 To numCols
            arrOutput(j, i) = arrInput(i, j)
        Next j
    Next i
    
    ' 输出转置后的二维数组
    For i = 1 To numCols
        For j = 1 To numRows
            Debug.Print arrOutput(i, j)
        Next j
    Next i
End Sub

上述代码中，我们首先定义了一个输入的二维数组 `arrInput`，然后通过 `UBound` 和 `LBound` 函数获取数组的行数和列数。接着，我们使用 `ReDim` 语句初始化输出的二维数组 `arrOutput`，并使用嵌套的循环将输入数组的元素转置到输出数组中。最后，我们通过循环输出转置后的二维数组。

VBA 二维数组排序

以下是VBA中二维数组排序的示例代码：

Sub sort_2D_array()
    Dim arr(1 To 3, 1 To 2) As Integer '定义一个3行2列的二维数组
    Dim i As Integer, j As Integer
    Dim temp As Integer
    
    arr(1, 1) = 3: arr(1, 2) = 2
    arr(2, 1) = 1:(2, 2) = 
    arr(3, 1) = 2: arr(3, 2) = 1
    
    '冒泡排序
    For i = 1 To 3
        For j = 1 To 2
            If arr(i, j) > arr(i, j + 1) Then
                temp = arr(i, j)
                arr(i, j) = arr(i, j + 1)
                arr(i, j + 1) = temp
            End If
        Next j
    Next i
    
    '输出排序后的二维数组
    For i = 1 To 3
        For j = 1 To 2
            Debug.Print arr(i, j)
        Next j
    Next i
End Sub

该示例代码中，我们定义了一个3行2列的二维数组arr，并对其进行了冒泡排序。排序后，我们输出了排序后的二维数组。