vba二维数组转置函数

VBA中可以使用内置函数 Transpose 来进行二维数组的转置操作。使用方法如下：

Dim arr(1 To 3, 1 To 2) As Integer ' 定义一个3行2列的二维数组
Dim transposedArr() As Integer ' 定义一个新的数组用于存储转置后的结果
' 对二维数组进行赋值操作（略）
' 使用Transpose函数对二维数组进行转置操作
transposedArr = WorksheetFunction.Transpose(arr)
' 输出转置后的结果
Debug.Print "转置后的结果为："
For i = 1 To UBound(transposedArr, 1)
    For j = 1 To UBound(transposedArr, 2)
        Debug.Print transposedArr(i, j);
    Next j
    Debug.Print
Next i
在上述代码中，我们首先定义一个3行2列的二维数组arr，并且使用赋值操作对其进行初始化。然后使用Transpose函数将arr进行转置操作，并将结果存储到一个新的一维数组transposedArr中。最后使用Debug.Print语句输出转置后的结果。
需要注意的是，Transpose函数只能对二维数组进行转置操作。如果需要对更高维度的数组进行转置操作，则需要自行编写转置函数。