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