VBA For Loop - идти дольше, чем планировалось изначально

Question

Я хотел бы иметь Excel VBA For Loop, который может работать дольше, чем я изначально планировал. Например:

Sub Test()
 LR = 10

 For i = 1 To LR
    Cells(i, 1).Value = 1
    If Cells(i, 2).Value <> "" Then
       LR = LR + 1
    End If
 Next i
End Sub

Предполагая, что в столбце 2 / B было содержимое, я ожидаю добавлять 1 к LR на каждой итерации. Я ожидаю, что этот цикл продолжится до строки 20. Он останавливается на строке 10, которая первоначально является объявленной. Как мне обойти эту проблему и сделать цикл более длинным, если мне нужно расширить его на основе условия?

Answer 1

Я верю, что Скотт прав.

НЕПРОВЕРЕНО

Sub Test()
LR = 10

Do Until LR = 20
    'Inside the loop you can use Exit Sub if a condition is meet before LR = 20
    If LR > 20 Then
        Exit Sub
    End If
    LR = LR + 1
Loop
End Sub