エクセルVBAについて

はじめてのVBAで本を読んでも使い方がわからないので教えてほしいのですが
シート１にこのような表を作成して
　　A　　　　B　　　
１山田　　　５００
２伊藤　２００００
３佐藤　　　　５０
・
・
・
シート２に
　　　A　　　B　　　　C
１　　　　請求書
２
３　山田
４　５００円

というような請求書を印刷していくVBAを作りたいのですが人数については１０人から３００人とその時々で変化するのでデータがないときは
印刷もそこで終わりという風にしたいのですが、、、
よろしくお願いします。
エクセル２００３　XPです。

No.1 ベストアンサー 回答者： kimino_naha 回答日時： 2007/09/26 22:29

Sub PrOutTest ()

Dim Ir as Long
with worksheets("シート２")
for Ir = 1 to worksheets("シート１").cells(65000, 1).end(xlup).row
.cells(3, 1).Value = worksheets("シート１").cells(Ir, 1)
.cells(4, 1).Value = worksheets("シート１").cells(Ir, 2)
.PrintOut
next Ir
end with
end sub

4行目後半のworksheets("シート１").cells(65000, 1).end(xlup).row
でシート１の入力されている最終行を求めています。
for to next で 1行目から最終行まで同じ処理を繰り返しています。
最終行の処理が終わるとマクロを終了します。

手元にエクセルがないので確認していませんが、コピーしていただければたぶん動くと思います。
シート１が"sheet1"であれば訂正してください。

この回答へのお礼

ありがとうございます
助かりました参考にさせていただきます。

お礼日時：2007/09/26 22:38

No.3 回答者： kimino_naha 回答日時： 2007/09/27 21:28

No1 です。

セルA4に"円"がついてました。6行目を

.cells(4, 1).Value = worksheets("シート１").cells(Ir, 2).Value & "円"

と訂正いたします。

No.2 回答者： uro_tan 回答日時： 2007/09/26 22:34

印刷するループの中で

if cells(i,1)="" then exit sub
のように終了条件を入れてあげればデータがないところで終了させることができます。