| |
VBAの初心者です。
下記のコピー＆ペーストを、For〜Nextのように繰り返して実行したいのですが、コードのイメージが涌かず質問させていただきます。
【質問内容】
・“A列〜C列”にデータがあるとして、そのデータをE列から横に繋げてペーストしてきたいです。
1.“A1〜C1”をコピーして、“E1（〜G1）”にペースト。
2.“A2〜C2”をコピーして、1.でペーストした１つの右の“H1（〜J1）”にペースト。
3.“A列〜C列”のデータを3回ペーストしたら、次のデータは1つ下のE列の行からペーストしていく。
4.これを“A列〜C列”にデータが入力されているところまで繰り返す。
（＝A列にデータが入力されているところまで）
図が分かりづらいかもしれませんが、どなたかご教授いただけないでしょうか。
もし過去に同様の質問があるようでしたら、お教えいただけると幸いです。
宜しくお願いいたします。
--------------------------------------------------------------------
A B C D E F G H I J K L M
1 A1 B1 C1 A1 B1 C1 A2 B2 C2 A3 B3 C3
2 A2 B2 C2 A4 B4 C4
3 A3 B3 C3
4 A4 B4 C4
Range("A1:C1").Select
Selection.Copy
ActiveSheet.Paste Range("E1")
Range("A2:C2").Select
Selection.Copy
ActiveSheet.Paste Range("H1")
Range("A3:C3").Select
Selection.Copy
ActiveSheet.Paste Range("K1")
'3回ペーストしたら、下の行にペーストしていく
Range("A4:C4").Select
Selection.Copy
ActiveSheet.Paste Range("E2")
Application.CutCopyMode = False
|
|
リョウ
- 19/4/21(日) 1:29 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
≪
