如何根据单元格值自动删除 Excel 2007 中的行？

Question

我希望根据 Excel 2007 中是否存在具有特定值的单元格来自动删除该行。我在 Google 上搜索过，但只找到了有关以前版本的 Excel 的 VBA 脚本的旧信息，而且到目前为止，这些信息都不起作用。我正在寻找有关如何执行此操作的超级用户质量解释。

Answer 1

此宏将删除包含具有“fri”值的单元格的行，然后将单元格上移。只需将代码中的“FRI”更改为您要搜索的值即可。您还可以修改它以提示输入值或使用另一个单元格中的值作为条件。

Sub DeleteThis()

For Each Rng In Selection.Rows
    If (Application.WorksheetFunction.CountIf(Rng, "fri") > 0) Then
        Rng.Delete Shift:=xlUp
    End If
Next Rng

End Sub

使用方法：选择您的数据范围，然后运行宏。

样品：
之前：

后：

非 VBA：您可以使用 Excel 的高级过滤器来选择符合特定条件的行；不过，这可能需要一些工作表空间和其他一些步骤。