Сломан тест контроля контура

Question

Код:

Row = 1
LastRow = {some number}
Rng = "A" & Row ":" & "A" & LastRow
Do While Find_String(Rng,"Look for Something",Ans_Row) Then
   ...
   Row = Row + 1
   Rng = "A" & Row ":" & "A" & LastRow
Loop

Если вы пройдете последнюю строку, Find_String "должна вернуть значение False и цикл должен остановиться.

Я только что обнаружил, что если вы пройдете мимопоследний и получить диапазон, например

"A5:A4"

, Find_String больше не возвращается из цикла. Раньше.

Тест, который вы должны добавить, чтобы заставить его работать, -

If Row > LastRow Then Exit Do

Answer 1

A CORRECTION

Следует сказать, что «Find_String» продолжает возвращать TRUE, даже если Range использует или, по крайней мере, до недавнего времени, использовал для возврата FALSE.Больше нет.