多条件筛选列VBA代码故障：筛选逻辑未正确执行求助

原代码存在的核心问题 #

• 筛选逻辑与需求不符

  • Material Description列：原代码筛选包含SYRUP的行，需求是排除包含该字符串的行，应使用<>*SYRUP*作为条件。
  • Planned Deliv. Time列：需求是“不为0且不为空”，属于逻辑与关系，原代码误用Operator:=xlOr，应改为Operator:=xlAnd；且条件顺序需调整为非空（<>）+ 不为0（<>0）。
  • Material Type列：单个值筛选无需Operator:=xlFilterValues，多余参数会干扰筛选逻辑。

• 变量命名违规

  • Filter是VBA内置关键字，用作变量名会引发编译/运行错误，需改为合法名称（如FilterDesc）。

• 错误处理掩盖问题

  • On Error Resume Next会隐藏Find方法找不到列标题的错误，导致后续AutoFilter使用无效字段号，需添加列存在性校验。

• 操作对象逻辑颠倒

  • 原代码清除可见单元格内容，但需求是清除不符合条件的值——筛选后可见行是符合条件的，隐藏行才是需要处理的对象。

修正后的完整代码 #

Sub Delivery_Time()
    Dim rg As Range
    Dim Filter1 As Long, Filter6 As Long, FilterDesc As Long
    Dim ws As Worksheet
    
    ' 绑定工作表，避免Activate的不稳定问题
    Set ws = Worksheets("MARC")
    Set rg = ws.Range("A1").CurrentRegion
    
    ' 查找目标列号，添加错误捕获
    On Error Resume Next
    Filter1 = ws.Rows(1).Find(What:="MATERIAL TYPE", LookAt:=xlWhole).Column
    Filter6 = ws.Rows(1).Find(What:="Planned Deliv. Time", LookAt:=xlWhole).Column
    FilterDesc = ws.Rows(1).Find(What:="MATERIAL DESCRIPTION", LookAt:=xlWhole).Column
    On Error GoTo 0
    
    ' 校验列是否存在
    If Filter1 = 0 Or Filter6 = 0 Or FilterDesc = 0 Then
        MsgBox "未找到指定列标题，请检查表头！", vbExclamation
        Exit Sub
    End If
    
    ' 清除原有筛选状态
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 应用符合需求的筛选条件
    With rg
        .AutoFilter Field:=Filter1, Criteria1:="ZSFG"
        .AutoFilter Field:=FilterDesc, Criteria1:="<>*SYRUP*"
        .AutoFilter Field:=Filter6, Criteria1:="<>", Operator:=xlAnd, Criteria2:="<>0"
        
        ' 处理Planned Deliv. Time列的不符合条件行
        With .Columns(Filter6).Offset(1).Resize(.Rows.Count - 1)
            ' 清除隐藏单元格（不符合条件）的内容
            On Error Resume Next ' 兼容无不符合条件行的情况
            .SpecialCells(xlCellTypeHidden).Clear
            ' 给已清除的单元格添加黄色背景标记
            .SpecialCells(xlCellTypeHidden).Interior.Color = 65535
            On Error GoTo 0
        End With
        
        ' 取消筛选，恢复表格显示
        .AutoFilter
    End With
End Sub

关键修正说明 #

1. 使用Long类型存储列号，避免Variant类型的潜在类型转换问题。
2. 移除Activate方法，直接绑定工作表对象，提升代码稳定性。
3. 添加列标题存在性校验，提前终止错误流程并给出提示。
4. 筛选前清除原有筛选状态，避免叠加筛选导致结果异常。
5. 调整操作对象为隐藏单元格，精准清除不符合条件的值。
6. 操作完成后自动取消筛选，恢复表格正常显示。

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