Циклы Do While
Оператор Do While — еще один тил циклической структуры, представленной VBA отличие от цикла For-Next, цикл Do While выполняется до тех лор, пока удов ряется заданное условие. Цикл Do While может иметь один из двух представлений синтаксисов:

Do [While условие]
[ инструкции]
[Exit Do]
[инструкции]
LOOP
ИЛИ
Do
[ инструкции]
[Exit Do]
[инструкции]
Loop [While условие]
Как видите, VBA позволяет проверять условие While в начале или в конце цикла Разница между этими двумя синтаксисами связана с моментом, когда оценивается условие В первом синтаксисе содержимое цикла может вообще не выполнятся. Во втором содержимое цикла всегда выполняется (как минимум один раз).
Следующий пример демонстрирует цикл Do Whi lee первым синтаксисом:

Данная процедура использует активную ячейку! как точку отсчета и просматривает значения вниз по столбцу, вставляя ноль в активную ячейку. При каждом повторении цикла активной становится следующая ячейка в столбце. Цикл продолжается, пока функция VBA IsEmpty не определит, что активная ячейка пуста.
Далее покажем работу второго синтаксиса цикла Do While. Цикл всегда будет выполнен хотя бы один раз, даже если исходно активная ячейка пуста:
Ниже следует еще один пример цикла Do While. Эта процедура открывает текстовый файд, считывает каждую строку, преобразует текст в верхний регистр, а затем сохраняет его на активном листе, начиная с ячейки А1, и продолжает перемещаться вниз по столбцу. Представленная процедура использует функцию VBA EOF, возвращающую True, если достигнут конец файла. Последний оператор закрывает текстовый файл.
Цыклы Do Until
Структура цикла Do Until имеет много общего с конструкцией Do While. Разница заключается лишь в том, как проверяется условие цикла. В варианте Do While цикл выполняйся до тех пор, пока выполняется условие. В цикле Do Until цикл выполняется, пока условие не станет выполняться.
'Структура Do Until может быть представлена двумя видами синтаксиса:
Do [Until условие]
[инструкции]
[Exit Do]
[инструкции]
Loop
ИЛИ
Do
[ инструкции)
[Exic Do] .
[инструкции]
Loop [Until условие]
Пример, приводимый далее, уже был продемонстрирован для цикла Do While, но теперь он изменен для иллюстрации возможностей цикла Do until. Единственное отличие
строка с оператором Do, Этот пример делает программу несколько понятнее, так как не используется отрицание, необходимое в примере Do While: