直到_____，直到_____循环

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 Statement。

有关远离选择和激活以实现目标的方法，请参阅How to avoid using Select in Excel VBA macros。