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

Question

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

• 列F = 0
• 第N列 = 0
• 列AT = FALSE
• 列AU = FALSE
• 列AV = 已售出
• Z栏 = 上演

谢谢。

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

你可以用一个表（而不是真的需要宏）。选择所有数据，转到插入菜单，然后单击表格（在左侧）。使用列顶部的下拉列表选择数据过滤器。