求指教行列在原表格中互换代码问题

龙鹏-Excell

Sub RowTOColumn()
   Dim arr, brr, crr
   Dim i, j
   arr = Sheet1.UsedRange
   For i = 1 To UBound(arr)
       For j = 1 To UBound(arr, 2)
           brr(j, i).Value = arr(i, j).Value

       Next j
   Next i
   Cells.ClearContents
   Sheets1.Cells(1, 1).Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub
-----------------------------------------------------------------------------------
  brr(j, i).th= arr(i, j).Value----------提示需要要求对像，这段代码错在哪里？？？怎样修代改代码能达到要求

写代码目的：在原数据表格中，自由切换行与列数据进行互换位置 ，即行数据转换为列数据，列数据切换为行数据，如下图所示：

qingc0221

试试Application.Transpose

lsc900707

1. Sub RowTOColumn()
   
2.    arr = [a1].CurrentRegion
   
3.    Cells.ClearContents
   
4.    [a1].Resize(UBound(arr, 2), UBound(arr)) = Application.Transpose(arr)
   
5. End Sub

复制代码