Excel VBA多列筛选：匹配第3/4列单条件并移除其余行

你的代码问题分析 #

1. 拼写错误：Criterial应为Criteria1
2. 语法逻辑错误：Excel的AutoFilter无法通过or直接串联两个列的筛选条件，这样写会导致第二次筛选覆盖第一次的结果，无法实现“或”逻辑。

方案一：用辅助列实现（简单易理解，适合新手） #

通过添加辅助列标记符合条件的行，再筛选删除无关行：

Sub FilterOrCondition()
    Dim lr As Long
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 添加辅助列（E列）并写入判断公式
    Cells(1, 5).Value = "符合条件"
    Range("E2:E" & lr).Formula = "=IF(OR(ISNUMBER(SEARCH(""Test1"",C2)),ISNUMBER(SEARCH(""Test1"",D2))),""是"",""否"")"
    
    ' 筛选辅助列为"否"的行并删除
    With ActiveSheet.Range("$A$1:$E$" & lr)
        .AutoFilter Field:=5, Criteria1:="否"
        ' 跳过表头，删除筛选出的行
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        ' 取消筛选
        .AutoFilter
    End With
    
    ' 删除辅助列
    Columns(5).Delete
End Sub

方案二：直接遍历判断（无辅助列，效率更高） #

通过VBA遍历每一行，标记需要删除的行，最后批量删除：

Sub FilterOrConditionDirect()
    Dim lr As Long
    Dim i As Long
    Dim deleteRows As Range
    
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 从最后一行往上遍历，避免删除行导致索引错乱
    For i = lr To 2 Step -1
        If Not (InStr(1, Cells(i, 3).Value, "Test1", vbTextCompare) > 0 Or _
               InStr(1, Cells(i, 4).Value, "Test1", vbTextCompare) > 0) Then
            ' 收集需要删除的行
            If deleteRows Is Nothing Then
                Set deleteRows = Rows(i)
            Else
                Set deleteRows = Union(deleteRows, Rows(i))
            End If
        End If
    Next i
    
    ' 批量删除无关行
    If Not deleteRows Is Nothing Then
        deleteRows.Delete
    End If
End Sub

说明 #

• 两个方案都支持包含匹配（即单元格内容只要有"Test1"就符合条件），如果需要精确匹配，把SEARCH/InStr改成精确判断即可（比如Cells(i,3).Value = "Test1"）
• 方案二从后往前遍历是为了避免删除行后，后续行的索引发生变化导致漏删或误删

内容的提问来源于stack exchange，提问作者Kev Wain