VBA　配列で表の行列を入れ替える

 

配列で表の行列を入れ替える

 

 

Sub test()

    ’　配列で表の行列を入れ替える

 

 

    Dim i As Long, j As Long
    ’　行要素７、列要素３の２次元配列変数MyArray1を宣言
    Dim MyArray1(6, 2) As Variant


    ’　セルA1からC7の値を配列変数MyArray1に格闘
    For i = 0 To 6
        For j = 0 To 2
                MyArray1(i, j) = Cells(i + 1, j + 1).Value
        Next j
    Next i

    ’　配列変数MyArray1に格納した値を行列入れ替えてセルF１に出力
    For i = 0 To 6
        For j = 0 To 2
                 Cells(j + 1, i + 6).Value = MyArray1(i, j)
        Next j
    Next i

 

 

End Sub

 

実行結果

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事