删除行直到达到某个值

我需要一次删除一行，并循环，直到activecell =“X”为什么不这样简单的工作？

Sub SubMac4_1Loop() Do Until ActiveCell.Value <> "X" Selection.EntireRow.Delete Loop End Sub 

Answer 1

你的叙述直接抵触你的代码。

删除行，直到ActiveCell等于X。

 Sub SubMac4_1Loop() Do Until ActiveCell.Value = "X" Selection.EntireRow.Delete Loop End Sub 

删除行直到ActiveCell不等于X.

 Sub SubMac4_1Loop() Do Until ActiveCell.Value <> "X" Selection.EntireRow.Delete Loop End Sub 

Answer 2

 Do Until ActiveCell.Value <> "X" 

只要NOT activecell不是X => do而active cell = x

 Do While ActiveCell.Value <> "X" 

要么

  Do Until ActiveCell.Value = "X" 

会做的