excel - Excel 2013 删除具有特定文本的行而不留下空白行

Question

我试图澄清一些条目中有评论的日志，而有些则没有。所以我想要做的是删除整行，其中列中有注释，例如 NULL，这样它就不会在后面留下空白行，因为它会弄乱我的其他条件格式规则。

我猜这种自动化需要 VBA，但由于我不是全职编码员，我什至不知道如何开始解决这个问题。

提前感谢您的所有回复！

Answer 1

这不是一个非常复杂的答案，但你的问题也不是，所以希望它能让你继续前进。这假设您的评估在 A 列中。您显然可以改变它。如果您有数万行，您可能想要关闭一些功能，例如屏幕更新，但这是另一种类型的问题。

Sub ClearThatOut()
Dim rCell As Range

restart:

For Each rCell In Intersect(Columns("A"), ActiveSheet.UsedRange).Cells
    If UCase(rCell.Value2) = "NULL" Then
        rCell.EntireRow.Delete
        GoTo restart
    End If

    'Example of secondary text, you could put as many of these as needed.
    If UCase(rCell.Value2) = "OH NO!" Then
        rCell.EntireRow.Delete
        GoTo restart
    End If

Next rCell

End Sub