vba数组转置函数

VBA中有一个专门用于数组转置的函数，它叫做"WorksheetFunction.Transpose"。通过使用该函数，您可以将数组中的行转换为列，或者将列转换为行。

以下是一个示例代码，演示了如何使用该函数将一个行数组转置为列数组：

Dim arr(1 To 3) As Integer
Dim transposedArr() As Variant
' 填充行数组
arr(1) = 1
arr(2) = 2
arr(3) = 3
' 将行数组转置为列数组
transposedArr = Application.WorksheetFunction.Transpose(arr)
' 输出列数组
Debug.Print transposedArr(1) ' 输出1
Debug.Print transposedArr(2) ' 输出2
Debug.Print transposedArr(3) ' 输出3
在上面的代码中，首先我们声明了一个整数类型的行数组，然后将其填充为{1, 2, 3}。接着，我们使用"Application.WorksheetFunction.Transpose"函数将其转置为列数组，并将转置后的数组存储在另一个变量"transposedArr"中。最后，我们输出"transposedArr"中的每一个元素，以检查是否成功地将行数组转置为了列数组。
需要注意的是，如果要使用"WorksheetFunction.Transpose"函数，需要引用"Excel"对象库。此外，该函数只能用于一维数组的转置，如果需要转置二维数组，则需要使用其他方法。