エクセルの印刷マクロについてご教示下さい。

質問

現在、
　　　　シート１のＡ列に番号（ＮＯ１～２００）を、Ｂ列からＧ列までには各番号のデータを入れて
　　　　整理したものを、シート２で作成した印刷様式に、印刷マクロ（年賀状の宛名印刷を修正
　　　　したもの）を使って印刷を行っていますが、マクロを実行するとデータがない番号も印刷
　　　　（カラ印刷）していますので、困っています。

　　　　印刷データがない番号（例えばＢ列にデータがない）については、印刷しないようにする
　　　　には、どのようなコードを入れればよいのでしょうか。

　　　　ＶＢＡをはじめたばかり（素人）ですので、よろしくお願いいたします。（エクセル2003使用）

回答No.1

keithin · ベストアンサー

こんな具合にします。

sub macro1()
　dim r as long
　worksheets("Sheet1").select

’２行目から２００行まで巡回する
　for r = 2 to 200

’データがあったら転記して印刷する
　if cells(r, "B") <> "" then
　　worksheets("印刷シート").range(A5) = cells(r, "B")
　　worksheets("印刷シート").range(B10) = cells(r, "C")
　　worksheets("印刷シート").range(C15) = cells(r, "D")
　　worksheets("印刷シート").range(D20) = cells(r, "E")
　　worksheets("印刷シート").printout
　end if
　next r
end sub

お礼

午後から外出でお礼が遅くなりました。
ご教示ありがとうございました。
無駄印刷がなくなり助かりました。
本当に、ありがとうございました。