VBA，如何把一个n*n的矩阵逆时针旋转？我理解是区域的转置

 

1 问题

 

2 我理解是区域内数据的转置

 

Sub test_tranp1()

Dim r1 As Range
Dim arr1
Dim arr2()

arr1 = Range("a1:b8")

'ReDim arr2(UBound(Selection, 2), UBound(Selection, 1))

ReDim arr2(LBound(arr1, 2) To UBound(arr1, 2), LBound(arr1, 1) To UBound(arr1, 1))
For i = LBound(arr1) To UBound(arr1)
   For j = LBound(arr1, 2) To UBound(arr1, 2)
       arr2(j, i) = arr1(i, j)
   Next
Next

Range("d20").Resize(UBound(arr1, 2), UBound(arr1, 1)) = arr2

End Sub

效果如下