Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


123 / 75189 ←次へ | 前へ→

【80714】データを横にペーストしていきたい
質問  リョウ E-MAIL  - 19/4/21(日) 1:29 -

引用なし
パスワード
   VBAの初心者です。
下記のコピー&ペーストを、For〜Nextのように繰り返して実行したいのですが、コードのイメージが涌かず質問させていただきます。


【質問内容】
・“A列〜C列”にデータがあるとして、そのデータをE列から横に繋げてペーストしてきたいです。

 1.“A1〜C1”をコピーして、“E1(〜G1)”にペースト。
 2.“A2〜C2”をコピーして、1.でペーストした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

50 hits

【80714】データを横にペーストしていきたい リョウ 19/4/21(日) 1:29 質問[未読]
【80715】Re:データを横にペーストしていきたい γ 19/4/21(日) 6:22 回答[未読]
【80716】Re:データを横にペーストしていきたい リョウ 19/4/21(日) 11:13 質問[未読]
【80717】Re:データを横にペーストしていきたい γ 19/4/21(日) 14:10 回答[未読]
【80718】Re:データを横にペーストしていきたい リョウ 19/4/21(日) 14:23 お礼[未読]
【80719】Re:データを横にペーストしていきたい γ 19/4/21(日) 21:26 回答[未読]
【80720】Re:データを横にペーストしていきたい リョウ 19/4/22(月) 20:30 お礼[未読]

123 / 75189 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free