缺少VBA数组转置列

Sub TransposeArray()
    Dim originalArray As Variant
    Dim transposedArray As Variant
    Dim numRows As Long
    Dim numCols As Long
    Dim i As Long
    Dim j As Long
    
    ' 假设原始数组存储在Range("A1:D4")中
    originalArray = Range("A1:D4").Value
    
    numRows = UBound(originalArray, 1) ' 获取原始数组的行数
    numCols = UBound(originalArray, 2) ' 获取原始数组的列数
    
    ReDim transposedArray(1 To numCols, 1 To numRows) ' 创建新数组
    
    ' 循环遍历原始数组的行和列，并将元素复制到新数组的对应列位置
    For i = 1 To numRows
        For j = 1 To numCols
            transposedArray(j, i) = originalArray(i, j)
        Next j
    Next i
    
    ' 将转置后的列数据输出到Range("E1:H4")中
    Range("E1").Resize(numCols, numRows).Value = transposedArray
End Sub