コピーして行と列を入れ替えて貼り付ける

トップページ（目次）

454.コピーして行と列を入れ替えて貼り付ける

＜実行前後＞

→

Sub コピーして行と列を入れ替えて貼り付ける()
    
    Range("B1:D1").Copy
    
    Range("A2").PasteSpecial Transpose:=True
    
End Sub