Vba 直到或直到循环

如何为循环生成两个条件

基本上，我想做以下工作：

Sub SubMac4_1Loop()

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

---

显然这不起作用，但我需要知道如何实现这一点。

您正在寻找OR布尔条件

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

有关VBA的

Do[Until]/[While]循环

语法的更多信息，请访问MSDN站点

---

请参阅，了解如何摆脱依赖选择和激活来实现目标的方法。

您正在寻找或布尔条件

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

有关VBA的

Do[Until]/[While]循环

语法的更多信息，请访问MSDN站点

---

请参阅，了解摆脱依靠选择和激活来实现目标的方法。

我喜欢你在我看到你发布的几乎每一个答案中都链接到这个问题（避免选择/激活）；-）这一点尤其重要，因为当删除行时，用户依赖于移动。在我看来，这不是“最佳实践”。有太多的事情可能会出错，你可能还不如编写Word VBA（EWW！）。的确如此。我完全是在做一个“‘选择’是对活动工作表的隐含引用”Rubberduck 2.0中的代码检查。我喜欢你在我看到你发布的几乎每个答案中链接到这个问题（避免选择/激活）；-）这一点尤其重要，因为当删除行时，用户依赖于移动。在我看来，这不是“最佳实践”。有太多的事情可能会出错，你可能还不如编写Word VBA（EWW！）。的确如此。我完全是在RuberDuck 2.0中做一个“'Selection'是对活动工作表的隐式引用”代码检查。