Do Loopで行数分処理を行います。
下の例ではA列の値がなくなるまで処理をします。
L = 2 '初期値
Do While Cells(L , 1).Value <> ""
'イロイロ処理をする
L = L + 1
Loop
コメントする