vba转置函数

VBA 中的转置函数是 WorksheetFunction.Transpose()，它可以将一个数组或者一个列向量转置为行向量或者行向量转置为列向量。下面是使用 VBA 转置函数的示例代码：

Sub TransposeExample()
    ' 定义一个列向量数组
    Dim columnArray(1 To 5, 1 To 1) As Integer
    columnArray(1, 1) = 1
    columnArray(2, 1) = 2
    columnArray(3, 1) = 3
    columnArray(4, 1) = 4
    columnArray(5, 1) = 5
    ' 使用 Transpose 函数将列向量转置为行向量
    Dim rowArray As Variant
    rowArray = WorksheetFunction.Transpose(columnArray)
    ' 输出结果
    MsgBox rowArray(1) & ", " & rowArray(2) & ", " & rowArray(3) & ", " & rowArray(4) & ", " & rowArray(5)
End Sub
在上面的示例代码中，首先定义了一个列向量数组 columnArray，然后使用 Transpose 函数将它转置为行向量数组 rowArray，最后输出结果。如果您需要将一个行向量转置为列向量，只需要将定义的数组形状变为一行多列，然后使用 Transpose 函数即可。
需要注意的是，使用 Transpose 函数时，如果数组中的元素类型不一致，可能会导致出现类型不匹配的错误。此时需要对数组中的元素进行类型转换，确保它们的类型一致。