助けてください!!VBA初心者なんですが、複数範囲をコピーして指定列に貼り付けたいのですが
助けてください!!VBA初心者なんですが、複数範囲をコピーして指定列に貼り付けたいのですが、エラーが出てしまいます。
説明が下手なので図のようなもので
下図1
ABCDE
1あいうえお
2あいうえお
3あいうえお
4あいうえお
下図2
ABCDEFGHIJ
1あ い う え お
2あ い う え お
3あ い う え お
4あ い う え お
まずは下図1のように下図2の様に指定した列に貼りたいのですが。
Range("A1:E5").Copy
Range("A1,C1,E1,H1").PasteSpecial Paste:=xlValues
でエラーになり別々にと考えて
Range("A1:A5,B1:B5,C1:C5,D1:D5,E1:E5,").Copy
Range("A1,C1,E1,H1").PasteSpecial Paste:=xlValues
でも無理でした…なにかいい方法があれば教えてください。
単純に
Range("A1:A5").Copy
Range("A1").PasteSpecial Paste:=xlValues
Range("B1:B5").Copy
Range("C1").PasteSpecial Paste:=xlValues
Range("C1:C5").Copy
Range("E1").PasteSpecial Paste:=xlValues
Range("D1:D5").Copy
Range("H1").PasteSpecial Paste:=xlValues
Range("E1:E5").Copy
Range("a1").PasteSpecial Paste:=xlValues
とするしかないんでしょうか?
なにかいい方法があればお教えください!!
お礼
ありがとうございます。 うまくできました。