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