行列を入れ替えて新規シートにコピーする

Excelの3行マクロ～すぐに使えるミニマクロ4回

行列を入れ替えて新規シートにコピーする

動画版「3行マクロ4回」です。
表の行と列を入れ替えて貼り付けるって、以前は結構面倒でした。最近は、コマンドアイコンがあちこちにあって、アクセスしやすくなっていますね。とはいえ、やはり面倒なことはマクロにさせましょう。

3行マクロ4回行列を入れ替えて新規シートにコピーする

動画内で作成したコード。

コードの解説は動画または記事解説をご覧ください。

コードの解説は動画をご覧ください。

'=====================================
'=3行マクロ講座　4回
'=4回、行列を入れ替えて新規シートにコピーする
'=====================================
Sub 行と列を入れ替えた表を新規シートに作成1()
    Selection.Copy
    Sheets.Add After:=ActiveSheet ' 新規シートのA1セルがアクティブになるので
    Selection.PasteSpecial Transpose:=True
    Selection.PasteSpecial Paste:=xlPasteColumnWidths
End Sub

Sub 行と列を入れ替えた表を新規シートに作成2()
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    With Range("A1")
        .PasteSpecial Paste:=xlFormats
        .PasteSpecial Transpose:=True
        .PasteSpecial Paste:=xlPasteColumnWidths
    End With
End Sub

Sub 消去()
    Selection.Clear
End Sub