Выполнять до ______ до ____ петля

Question

Как создать два условия для цикла?

По сути я хочу сделать следующее:

Sub SubMac4_1Loop() 

    Do Until ActiveCell.Value = "X" 
    **or until ActiveCell.Offset(1,1) = ""** 
     Selection.EntireRow.Delete 
Loop 
End Sub 

Очевидно, что это не будет работать, но мне нужно знать, как это сделать.

Answer 1

Вы ищете ИЛИ логическое состояние.

Do Until ActiveCell.Value = "X" OR ActiveCell.Offset(1,1) = "" 
    Selection.EntireRow.Delete 
Loop 

Дополнительная информация о Do [Until]/[While] Loop синтаксиса VBA доступен с сайта MSDN в Do...Loop Statement.

См. How to avoid using Select in Excel VBA macros для получения методов, позволяющих отвлекаться от выбора и активации для достижения ваших целей.