Excel VBA質問箱 IV

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

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


27137 / 76732 ←次へ | 前へ→

【54919】マクロ初心者です。
質問  kool E-MAIL  - 08/4/4(金) 11:22 -

引用なし
パスワード
   シートA(元データ)の表形式のデータ(500行:14項目)を
シートB(冊子)へレイアウトを変更してコピーしたいと思っています。
インターネットなどを見て以下のように1行分作ったのですが、

Sheets("元データ").Select
Sheets("元データ").Range("A4").Copy
Sheets("冊子").SelectRange("C8").PasteSpecial Paste:=xlValues
Sheets("元データ").Select
Sheets("元データ").Range("B4").Copy
Sheets("冊子").SelectRange("C11").PasteSpecial Paste:=xlValues

2行目から500行目までも同じような法則で
簡単にコピーができる方法はないでしょうか?
つまずいているのは、貼り付け先のセルが一定間隔ではありますが
間が開いているところです。
以下のように2行目以降を8行間隔で貼り付けたいのですが。。。
  
Sheets("元データ").Select
Sheets("元データ").Range("A5").Copy
Sheets("冊子").SelectRange("C16").PasteSpecial Paste:=xlValuesSheets
("元データ").Select
Sheets("元データ").Range("B5").Copy
Sheets("冊子").SelectRange("C19").PasteSpecial Paste:=xlValues

説明が下手で申し訳ありませんが、宜しくお願いします。m(_ _)m

0 hits

【54919】マクロ初心者です。 kool 08/4/4(金) 11:22 質問
【54920】Re:マクロ初心者です。 ν 08/4/4(金) 12:07 発言
【54922】Re:マクロ初心者です。 kool 08/4/4(金) 13:46 発言
【54924】Re:マクロ初心者です。 ν 08/4/4(金) 14:29 発言
【54926】Re:マクロ初心者です。 わいわい 08/4/4(金) 15:01 発言
【54928】Re:マクロ初心者です。 kool 08/4/4(金) 15:36 お礼
【54927】Re:マクロ初心者です。 kool 08/4/4(金) 15:31 お礼
【54929】Re:マクロ初心者です。 ν 08/4/4(金) 15:40 発言
【54932】Re:マクロ初心者です。 kool 08/4/4(金) 16:05 発言
【54934】Re:マクロ初心者です。 ν 08/4/4(金) 16:11 発言
【54936】Re:マクロ初心者です。 kool 08/4/4(金) 16:31 お礼
【54937】Re:マクロ初心者です。 ν 08/4/4(金) 17:37 発言
【54976】Re:マクロ初心者です。 kool 08/4/8(火) 10:02 お礼
【54930】Re:マクロ初心者です。 ひげくま 08/4/4(金) 15:42 発言
【54931】Re:マクロ初心者です。 わいわい 08/4/4(金) 16:04 発言
【54933】Re:マクロ初心者です。 kool 08/4/4(金) 16:09 お礼
【54935】Re:マクロ初心者です。 kool 08/4/4(金) 16:14 お礼
【54921】Re:マクロ初心者です。 わいわい 08/4/4(金) 12:36 発言
【54923】Re:マクロ初心者です。 kool 08/4/4(金) 13:51 回答
【54925】Re:マクロ初心者です。 注意 08/4/4(金) 14:31 発言

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