Do Loopで行数分処理を行います。
下の例ではA列の値がなくなるまで処理をします。
L = 2 '初期値 Do While Cells(L , 1).Value <> "" 'イロイロ処理をする L = L + 1 Loop
L = 2 '初期値 Do While Cells(L , 1).Value <> "" 'イロイロ処理をする L = L + 1 Loop
トラックバックURL: http://winnote.adg7.com/mt/mt-tb.cgi/188
コメントする