Хотя очень часто не используются на этом сайте, вы могли бы найти себя в ситуации, когда вы хотите, чтобы использовать Do Until Loop в Excel VBA. Код не помещается между Do Until и Loop будет повторяться до тех пор, часть после Do Пока не верно.

Поместите командную кнопку на листе и добавьте строки следующего кода:

Dim i As Integer

i = 1

Do Until i > 6

Cells(i, 1).Value = 20

i = i + 1

Loop

Результат при нажатии на кнопку управления на листе:

Excel VBA Do Until Loop

Объяснение: пока я не выше, чем 6, Excel VBA помещает значение 20 в ячейку на пересечении строки I и столбца 1 и шагом я на 1. В результате, значение 20 будет помещен в колонку А в шесть раз (не семь, потому что Excel VBA останавливается, когда я = 7).