❗️Важное предупреждение о работе циклов❗️
Циклы Do While ... Loop и Do Until ... Loop довольно хитрые и я не рекомендую использовать их пока вы хорошенько не освоитесь с VBA.
Дело в том, что эти циклы выполняются пока не будет выполнено или не выполнено какое-то условие. А если такое не произойдёт (на практике такое случается) подобный код может привести к бесконечному выполнению цикла и, как следствие, к зависанию Excel и крашу системы.
Например, вы можете написать код (не запускайте его!), который начнет закрашивать весь ваш Excel в голубой цвет пока не найдет незаполненную ячейку. Случайный запуск такого кода на пустом листе может привести к подвисанию системы:
Sub ЗаполнитьДоЗаполненной()
Dim Ячейка As Range
Set Ячейка = Range("A1")
Do Until Ячейка.Value <> ""
Ячейка.Interior.Color = RGB(173, 216, 230)
Set Ячейка = Ячейка.Offset(1, 0) '
Loop
End Sub
❕Если вдруг подобное случилось, используйте Ctrl + Break, чтобы остановить выполнение кода.
