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

結果は以下のとおりであります