有效的方式来删除行（多指标分析）VBA

Question

我有一个表，其中在柱A有一个字符串和Col B由字符串B的

我想保持的Word“Begründung”行中柱A和“Nein”在山坳B.

我使用这些来源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 

我想补充另一个标准山口B.发现下面的代码无论在上校B' Nein'遇到该行被保留剩下的部分被删除，但同时'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