在VBA中删除具有多个条件的行

Sub DeleteRowsWithMultipleConditions()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    i = 2 ' 从第2行开始，假设第1行是表头
    
    Do While i <= lastRow
        If Cells(i, 1).Value = "条件1" And Cells(i, 2).Value = "条件2" Then
            Rows(i).Delete
            lastRow = lastRow - 1 ' 删除一行后，最后一行的行号减1
        Else
            i = i + 1 ' 如果不满足删除条件，继续下一行
        End If
    Loop
End Sub