vba - 删除行直到达到某个值

Question

我需要一次删除一行并循环它直到 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