Excel：如果 COLUMN 等于 VALUE，则删除多行

Question

是否有人知道或可以编写一个宏来检查文档的所有行并删除至少具有以下条件之一的所有行：

• Column F = 0
• Column N = 0
• AT 列 = FALSE
• AU 列 = FALSE
• AV 列 = 已售出
• Z 列< /strong> = 上演

谢谢。

Answer 1

Sub RemoveRows()
    Application.ScreenUpdating = False
    Dim r As Long
    For r = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 To ActiveSheet.UsedRange.Row Step -1
        If Cells(r, 6) = 0 Or Cells(r, 14) = 0 _
            Or Cells(r, 46) = False Or Cells(r, 47) = False _
                Or Cells(r, 48) = "Sold" Or Cells(r, 26) = "staged" _
                    Then Cells(r, 1).EntireRow.Delete
    Next r
End Sub

Answer 2

您可以使用表格来完成此操作（并且实际上并不需要宏）。选择所有数据，转到插入菜单，然后单击表格（位于左侧）。使用列顶部的下拉菜单选择数据过滤器。