指定した回数セルの値を貼り付けて印刷するマクロ

質問

Ａ　　　Ｂ
１名前　 個数
２田中　３０個
３佐藤　２０個
４山本　４０個
５鈴木　５０個

９貼り付け用のセル
１０ここに名前　　ここに個数

↑貼り付け後に印刷

などの様に記載されたブックがあり、
現在はＡ２：Ｂ２をコピー、Ａ１０：Ｂ１０に貼り付けをしてから印刷、
Ａ３：Ｂ３をコピー、Ａ１０：Ｂ１０に貼り付けて印刷を繰り返しています。
これをマクロを使用して自動化することはできないでしょうか。
印刷するのは全ての列では無い場合もあるので、
○列目から○列目、○列のみという条件を付加できれば幸いです。

よろしくご教授いただきたくお願い致します。

※添付ファイルもご参照ください

回答No.1

keithin · ベストアンサー

Ｄ２とＤ３には、２から４のように行番号を入れたり入れなかったりする事にします

sub macro1()
　dim s as long, e as long
　dim i as long

　if application.count(range("D2:D3"))=0 then exit sub
　s = range("D2").value
　e = range("D3").value

　if s = 0 then s = e
　if e = 0 then e = s

　for i = s to e
　　range("A10:B10").value = cells(i, "A").resize(1, 2).value
　　worksheets("印刷対象シート").printout
　next i
end sub

お礼

正に完璧です。とても早くご回答いただき、
ありがとうございました。