做直到_____或______循环

我如何为循环创造两个条件？

基本上我想要做到以下几点：

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 

有关VBA的Do [Until]/[While] Loop语法的更多信息，请参阅Do … Loop语句中的MSDN网站。

请参阅如何避免使用在Excel VBAmacros中select远离依赖select和activate来实现您的目标的方法。