Excel VBA質問箱 IV

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

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


9028 / 76732 ←次へ | 前へ→

【73272】Re:繰り返し処理について
発言  ひまこ  - 12/12/16(日) 10:12 -

引用なし
パスワード
   ▼UO3 さん:

さっそくありがとうございます。

こういった場で説明するのが初めてのため分かりにくい質問ですみません・・。

ちょっとやり方を変ようと思うので、
質問の訂正とともにレイアウトを説明させていただきますので
よろしくお願いします。

>>1行ずつコピーしないセルを増やしていき、12回繰り返したいと思っています。
ここの部分を、1行ずつ、コピーするセルを増やしてゆきたいに変更します。


レイアウトはA列〜J列まで13段の表となっています。

その13段10列の表を下に30段ずつ空けて12個作りたいと思っています。

12個表を作るのは、1行ずつ記載を増やして12枚作って印刷したいためです。30段ずつあけるのは、表を下に増やした場合、30段空けると用紙が次ページになってちょうど12枚続けて印刷できるからです。


1行目がタイトルで、そこは12個すべてコピーします。


A列〜D列までも12回すべてコピーします。

E列からJ列までについてコピーを1段ずつ増やしてゆきたいのです。

1回目のコピーはA1:J2までとA3:D13まで
2回目のコピーはA1:J3までとA4:D13まで
3回目のコピーはA1:J4までとA5:D13まで
以下続く

出来上がりは、1行目のタイトルとA2からD13までは12枚すべての表に記載する。

表ひとつづつ、見ていくと、EからJまでの列が
1行ずつ増えていく、という感じです。


分かりますでしょうか…。

初めの13段10列の表と同じものが
12回目に最終的に出来上がります。
コピーの1回目は元表からE3:J13を消した表
コピーの2回目は元表からE4:J13を消した表
以下続く、、という感じです。
(最初の質問はこの形でした)


もっと良い方法がある場合も含めて
考え方をアドバイス頂けると助かります。

どうぞよろしくお願いいたします。
228 hits

【73267】繰り返し処理について ひまこ 12/12/16(日) 0:33 質問
【73271】Re:繰り返し処理について UO3 12/12/16(日) 7:11 発言
【73272】Re:繰り返し処理について ひまこ 12/12/16(日) 10:12 発言
【73273】Re:繰り返し処理について UO3 12/12/16(日) 10:56 発言
【73275】Re:繰り返し処理について ひまこ 12/12/16(日) 21:38 質問
【73277】Re:繰り返し処理について UO3 12/12/16(日) 22:36 発言
【73278】Re:繰り返し処理について UO3 12/12/16(日) 22:40 発言
【73282】Re:繰り返し処理について ひまこ 12/12/17(月) 6:23 お礼
【73287】Re:繰り返し処理について ひまこ 12/12/17(月) 22:00 お礼
【73286】Re:繰り返し処理について 12/12/17(月) 21:49 発言
【73288】Re:繰り返し処理について ひまこ 12/12/17(月) 22:04 質問
【73291】Re:繰り返し処理について 12/12/18(火) 6:32 発言
【73301】Re:繰り返し処理について ひまこ 12/12/18(火) 21:17 お礼
【73276】Re:繰り返し処理について 12/12/16(日) 21:59 回答
【73281】Re:繰り返し処理について ひまこ 12/12/17(月) 6:21 お礼
【73289】Re:繰り返し処理について ひまこ 12/12/17(月) 23:24 質問
【73292】Re:繰り返し処理について 12/12/18(火) 6:34 回答
【73302】Re:繰り返し処理について ひまこ 12/12/18(火) 21:19 お礼
【73311】Re:繰り返し処理について 12/12/19(水) 18:48 回答
【73298】Re:繰り返し処理について UO3 12/12/18(火) 12:42 発言
【73303】Re:繰り返し処理について ひまこ 12/12/18(火) 21:29 お礼

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