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

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

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

答案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 的高级过滤器来选择符合特定条件的行;不过,这可能需要一些工作表空间和其他一些步骤。

相关内容