ＥＸＣＥＬについて教えてください。

質問

初めて質問します。よろしくお願いします。

管理している書類の中で、４列で１０００件以上のリストがあります。
これを印刷するときに、Ｂ５サイズで２ブロックずつ（５０件ぐらい×２ブロック）で自動的に書式設定をして印刷できるようにしたいと考えています。
ＶＢＡを使ったほうがよいのか、もっと簡単に（関数などで）設定できるのか、お分かりの方がいらっしゃいましたら教えてください。

イメージとしてはこんな感じです。

　　　＜リストの状態＞　このようにずっとリストが続きます。時々、修正・加筆が入るため、
　　　　　　　　　　　　　　リストの行数の増減があります。
　　　　　　　　　　　　　　リストのデータシートは（あいうえお別に）複数枚に分かれています。
　　　　　Ａ1 Ａ2 Ａ3 Ａ4
　　　　　Ａ5 Ａ6 Ａ7 Ａ8
　　　　　Ａ9 Ａ10 Ａ11 Ａ12
　　　　　　　・
　　　　　　　・
　　　　　　　・

これを以下のような書式で自動的に印刷できるようにしたいです。
（サイズ）Ｂ５/1枚あたり１００件程度
（条件）右ブロックに　１～50　左ブロックに51～100・・・となるようにしたい。
　　　　２Ｐ以降も右ブロックに若い番号～　左ブロックに右ブロックの続き～

　　Ａ1 Ａ2 Ａ3 Ａ4 　 Ａ51 Ａ52 Ａ53 Ａ54　　　　
　　Ａ5 Ａ6 Ａ7 Ａ8 　　Ａ55 Ａ56 Ａ57 Ａ58
　　　　　　・　　　 　　 ・
　　　　　　・　　　 　　 ・
　　　　　　・　　　　　 ・

説明が上手にできず解りにくいかもしれませんが、ご指導よろしくお願い致します。
＊参考までに・・・関数の使用者は中級者程度です。
　ＶＢＡについては　マクロの記録　ならできる程度です。

回答No.2

KURUMITO · ベストアンサー

シート1のA1セルから下方にデータが入力されているとしたらシート2のA1セルには次の式を入力しH1セルまでドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(INDEX(Sheet1!$A:$A,INT((ROW(A1)-1)/50)*200+ROW(A1)*4-3+COLUMN(A1)-IF(COLUMN(A1)<=4,1,5)+INT((COLUMN(A1)-1)/4)*200)=0,"",INDEX(Sheet1!$A:$A,INT((ROW(A1)-1)/50)*200+ROW(A1)*4-3+COLUMN(A1)-IF(COLUMN(A1)<=4,1,5)+INT((COLUMN(A1)-1)/4)*200))

お礼

回答ありがとうございました。（遅くなってしまってすみません。）
早速試してみます！
また解らないことが出てきましたら、質問させていただきますので
よろしくお願い致します。

回答No.3

queuerev2

もう解決済みかもしれませんが、もしよろしければ印刷の2ページ/枚について情報をいただければ、と思います。
B5を2ページ/枚にしようとするとB5Rになってしまうとのことですが、プリンタの機種名を教えていただけないでしょうか。
また、B5がB5Rになるとは、具体的にどのように印刷されるのでしょうか。

補足

返信が大変遅くなってしまい、申し訳ありませんでした。
参考までに、使用中のプリンター機種名を連絡させていただきます。
NECのMultiWriter8450Nです。
（以前の部署ではキャノン製を使用していましたが、今回のケースに対しては
簡単に対応できたように記憶しており、こちらのプリンターの使い勝手には不満が
残ります。）

＊縦長で２ブロックを印刷したいんですが、用紙が横長で２ブロックの印刷になります。原稿向きを横にして用紙指定を変えてみるなど、考えられる範囲でいろいろと試してみましたがNGでした。

回答No.1

aokii

プリンタの印刷オプション機能で４ページを１枚に印刷することをお勧めします。

補足

回答ありがとうございます。
4P1inはプリンターで印刷可能ですが、希望は2P1inでして・・・
トライしましたが、出力時のサイズがB5Rで出力されてしまい、プリンターの設定を確認してみたんですが、縦（B5)出力ではできないようなんです。
なので、プリンターオプション機能での設定を諦めて、こちらに投稿させていただきました。説明不足で申し訳ありません。