エクセル２００７を使用しています。

質問

エクセル２００７を使用しています。
VBAを利用して作成する帳票が数百枚有ります。
データシートの他に、別シート（帳票）があります。
データシートのIDを順番に帳票シートに入れ、vlookupで参照して印刷。
これを繰り返す処理で印刷をしております。
今後、別のブックを作成して、1枚のシートに上から順番に帳票を貼り付けていこうかと考えています。

全ての帳票が縦に並んだシートを新しいブックに作成してから印刷処理に入る予定。
（データや帳票が有るブックではなく、新しいブックに全帳票を保存させるのが目的です。）

1枚の帳票は55行程度です。（横は50列程度）
200枚分貼り付けると縦に11000行（横は50列程度）を使用するデータになります。

この処理をする場合の方法についての御相談です。

別ブックのシートに直接１つずつ帳票を貼り付け処理をするのがよいのでしょうか？

それともデータや帳票の有るブックに、一時的なシートを作成して、
一時的シートを完成させてから別ブックのシートに移した方が良いのでしょうか？
いずれにせよ「切り取り」と「貼り付け」が結構な数になりそうです。
少しでも処理時間が短く、スムーズな方法にしたいので教えて下さい！

回答No.2

hallo-2007 · ベストアンサー

1案
別ブックのシートに直接１つずつ帳票を貼り付け処理をする
2案
一時的なシートを作成して、一時的シートを完成させてから別ブックのシートに移す
1案の方が工程が少ないし、2案では、元ファイルが2倍の大きさになったりするので多少は早いかもしれませんが、もっと重要なポイントがあると思います。
この作業は、毎月発生する作業なのでしょうか。
Aブックに毎月シートが増えていくが、他のシートには変更が加えられないとか

運用できるかどうかわかりませんが
Aブックには、
シート全データ　：過去の全てのデータが1枚のシートに入っているシート
シート新規データ：新しく追加されるシートの2枚構成にします。
（シートが増えていかないようにします）
操作するのは、毎月にでも新規のデータを全データに追加して、新規のデータを削除します。

もし、上記の様な運用が出来ない、元のデータを変更して保存することが出来ないのであれば
1案で、VBAは別ブックの方に記述して別ブックの方から元データの情報を取り出す方法を取った方が
誤って元データを上書き保存したりする心配もなく無難だと思います。

回答No.1

shinkami

恐ろしく多いですね
各シート同じ項目なら最初2枚のシートをマクロを新規作成します。
このマクロを編集でよく観察して、2枚目の貼付でどこを変えたら
三枚目以降の貼付が出来るか見つけて下さい。

最初に出来たマクロは
Sub Macro1() で始まり
End Sub で終わっています。

このEND sub の手前に３枚目以降を追記します。

最初に出来たマクロで

「'」で始まる行は注釈行で処理に関わりありません
また
ActiveWindow.SmallScroll Down:=-78
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=23

のようにScrollがある行は画面をスクロールするだけで
マクロ実行結果には関係ありません。
これらの行を削除してから３枚目以降を追記して下さい。

追記が終われば マクロ実行

※ 各シートの行数が同じならば単純ですが、まちまちの時は最大行を貼付
出来上がったシートにソートをかけて空白行を削除

End Sub