删除行的有效方法（多个条件）VBA

Question

我有一张表，其中 Col A 中有一个字符串 A，而 Col B 由字符串 B 组成。

我想在 Col A 中保留带有单词“Begründung”的行，在 Col B 中保留带有单词“Nein”的行。

我正在使用从这些来源Efficient way to delete entire row if cell doesn't contain '@' 和Delete Row based on Search Key VBA 找到的以下代码

Sub KeepOnlyAtSymbolRows()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long

    Set ws = ActiveWorkbook.Sheets("Sheet1")

    lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

    Set rng = ws.Range("A1:A" & lastRow)

    ' filter and delete all but header row
    With rng
        .AutoFilter Field:=1, Criteria1:="<>*Begründung*"
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With

    ' turn off the filters
    ws.AutoFilterMode = False
End Sub

我想为 Col B 添加另一个标准。无论在 Col B 中的任何地方遇到“Nein”，都会保留该行并删除其余行，但同时保留 Col A 中的“Begrüundung”并删除其余行。

换句话说，只要在工作表中遇到单词“Begründung”和“Nein”，就会保留这些行，而删除其余行。

如果有人能提供帮助，我将不胜感激。

Answer 1

试试这个：

Sub DeleteWithMultipleColumnsCriterias()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long

    Set ws = ActiveWorkbook.Sheets("Sheet1")

    lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

    Set rng = ws.Range("A1:B" & lastRow)

    ' filter and delete all but header row
    With rng
        .AutoFilter Field:=1, Criteria1:="<>*Begründung*"
        .AutoFilter Field:=2, Criteria1:="<>*Nein*"
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With

    ' turn off the filters
    ws.AutoFilterMode = False
End Sub