Sub 縦のリストを横のリストに変更する()

    '縦データを1～4行まで処理する
    For 行 = 1 To 4
        
        '縦データを1～2列まで処理する
        For 列 = 1 To 2
            
            '貼付場所までずらして（この場合5行下）
            '縦データの行と列を逆にして貼り付ける
            Cells(列 + 5, 行) = Cells(行, 列)
        
        Next 列
        
    Next 行

End Sub