直到_,直到_循环

Question

如何为循环创建两个条件？

基本上我想做以下事情:

Sub SubMac4_1Loop()

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

显然这不起作用,但我需要知道如何实现这一目标.

Answer 1

您正在寻找OR布尔条件.

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

有关VBA Do [Until]/[While] Loop语法的更多信息,请访问MSDN站点的Do ... Loop语句.

请参阅如何避免在Excel VBA宏中选择选择远离依赖select和activate来实现目标的方法.

直到_____,直到_____循环