EXCEL2010マクロ「繰り返し作業」の方法

通常エクセルでは、（不定の行まで下に伸びていく）表の更に下に何かを記入するといった作り方はしません。
ご相談にもそういう説明はありませんでしたし、常識の範囲で回答が寄せられます。
無駄な二度手間三度手間にならないよう、できるだけ実際の状況を詳しく情報提供してご相談を投稿してください。


＞「データーが空白になればSTOP」

やりようは幾らでもあります。それこそ参考書なりで応用してください。

作成例：
sub macro2()
　dim r as long
’印刷範囲を設定する（念のため）
　activesheet.pagesetup.printarea = "$E$4:$F$4"
　r = 3

’順繰り繰り返す
　do until cells(r, "B") = ""
　’転記して印刷する
　　range("E4:F4").value = cells(r, "B").resize(1,2).value
　　activesheet.printout
　　r = r + 1
　loop
end sub


作成例：
sub macro3()
　dim r as long
’印刷範囲を設定する（念のため）
　activesheet.pagesetup.printarea = "$E$4:$F$4"

’順繰り繰り返す
　for r = 3 to range("B65536").end(xlup).row
　　if cells(r, "B") = "" then exit sub
　’転記して印刷する
　　range("E4:F4").value = cells(r, "B").resize(1,2).value
　　activesheet.printout
　next r
end sub

お礼

2015/09/06 15:57

いろいろとありがとうございました。

質問者