Sub 縦のリストを横のリストに変更する_配列版()

    '縦の全データを配列に格納する
    縦データ = Range("A1:B4")
    
    'よこデータ格納用の2行4列の箱を作る
    ReDim よこデータ(1 To 2, 1 To 4)
    
    '縦データを1～4行まで処理する
    For 行 = 1 To 4
        
        '縦データを1～2列まで処理する
        For 列 = 1 To 2
            
            '縦データの行と列を入れ替えてよこデータに格納する
            よこデータ(列, 行) = 縦データ(行, 列)
        
        Next 列
        
    Next 行
    
    '横に並び直した全データをセルへ戻す
    Range("A6:D7") = よこデータ

End Sub