如何在VBA中使用AutoFilter实现跨列逻辑AND条件筛选？

你需要排除的是特定日期+特定值的组合行（比如17/08/2016且值为-350、18/11/2016且值为-350），而非整个日期或整个值的所有行。原代码的问题在于两次独立筛选会误删需要保留的行，以下是两种可行的实现方案：

方案一：使用高级筛选（推荐） #

高级筛选支持复杂的多字段组合条件，适合大数据量场景，效率更高。

VBA代码示例： #

Sub AdvancedFilterCombined()
    Dim tbl As ListObject
    Dim criteriaRange As Range
    Dim ws As Worksheet
    
    Set ws = ActiveSheet
    Set tbl = ws.ListObjects("table")
    
    ' 在空白区域创建临时条件区域（可根据实际调整位置）
    ws.Range("J1").Value = "筛选条件"
    ' 公式逻辑：排除「(指定日期+指定值)」的组合行
    ws.Range("J2").Formula = "=NOT(OR(AND(" & tbl.ListColumns(1).Range(2).Address(False, False) & "=DATE(2016,8,17)," & _
                              tbl.ListColumns(4).Range(2).Address(False, False) & "=-350)," & _
                              "AND(" & tbl.ListColumns(1).Range(2).Address(False, False) & "=DATE(2016,11,18)," & _
                              tbl.ListColumns(4).Range(2).Address(False, False) & "=-350)))"
    Set criteriaRange = ws.Range("J1:J2")
    
    ' 执行高级筛选，保留符合条件的行
    tbl.Range.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=criteriaRange, Unique:=False
    
    ' 清理临时条件区域
    criteriaRange.ClearContents
End Sub

方案二：遍历表格直接删除目标行 #

适合数据量较小的场景，逻辑直观，无需临时条件区域。

VBA代码示例： #

Sub DeleteTargetRows()
    Dim tbl As ListObject
    Dim i As Long
    Dim dateCol As ListColumn
    Dim valueCol As ListColumn
    
    Set tbl = ActiveSheet.ListObjects("table")
    Set dateCol = tbl.ListColumns(1)
    Set valueCol = tbl.ListColumns(4)
    
    ' 从最后一行往前遍历，避免删除行导致索引错乱
    For i = tbl.ListRows.Count To 1 Step -1
        With tbl.ListRows(i)
            ' 判断是否为需要排除的日期+值组合
            If (.Range(dateCol.Index).Value = DateSerial(2016, 8, 17) And .Range(valueCol.Index).Value = -350) Or _
               (.Range(dateCol.Index).Value = DateSerial(2016, 11, 18) And .Range(valueCol.Index).Value = -350) Then
                .Delete
            End If
        End With
    Next i
End Sub

注意事项： #

• 代码中用DateSerial生成日期，可避免系统日期格式差异导致的匹配错误；
• 若需要保留原表数据，可将高级筛选的Action参数改为xlFilterCopy，并指定复制目标区域。

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