VBA AutoFilter多条件过滤报错求助：语法错误及动态范围实现

先解决你的语法错误 #

你写的代码有几个致命问题：

1. 重复参数赋值：同一个参数（比如Operator、Criteria4）被多次赋值，VBA不允许这种操作，这是直接触发语法错误的核心原因。
2. 条件值书写错误：你要过滤的370006写成了37006，少了一个0，会导致匹配结果错误。
3. AutoFilter参数逻辑错误：原生AutoFilter的参数结构不支持你这种连续的xlAnd+xlOr嵌套，它最多支持2个条件的组合，复杂多条件需要换方法实现。

关于VBA里的下划线_ #

这个是行续行符，作用是把一行过长的代码拆成多行，提升可读性。用法是必须放在一行的末尾，且前面要有一个空格，你的用法是正确的，这部分没问题。

动态范围的实现 #

不要用固定的$A$1:$G$21，可以用下面两种方法获取随数据变化的动态范围：

• 方法1：用CurrentRegion获取从A1开始的连续数据区域（空行空列会终止区域识别）：

  Dim dataRange As Range
  Set dataRange = ActiveSheet.Range("A1").CurrentRegion
  

• 方法2：手动定位最后一行，再拼接范围：

  Dim lastRow As Long
  lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
  Dim dataRange As Range
  Set dataRange = ActiveSheet.Range("A1:G" & lastRow)
  

多条件过滤的实现技巧 #

因为原生AutoFilter不支持复杂多条件嵌套，给你两种实用的实现方法：

方法1：辅助列法（简单易懂，适合新手） #

在数据旁插入一列，用公式标记需要过滤的行，再通过过滤辅助列实现需求：

Sub FilterMacro()
    ' 关闭屏幕刷新，加快运行速度
    Application.ScreenUpdating = False
    
    Dim lastRow As Long
    ' 获取A列最后一行数据
    lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 定义数据范围（A到G列）
    Dim dataRange As Range
    Set dataRange = ActiveSheet.Range("A1:G" & lastRow)
    
    ' 清除之前的筛选状态
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
    
    ' 添加辅助列H，标记符合过滤条件的行
    ActiveSheet.Range("H1").Value = "过滤标记"
    With ActiveSheet.Range("H2:H" & lastRow)
        .Formula = "=OR(AND(LEFT(A2,3)=""158"",LEN(A2)=6),AND(LEFT(A2,3)=""258"",LEN(A2)=6),A2=370006,A2=181023)"
        ' 将公式转换为值，避免后续修改数据导致标记变化
        .Value = .Value
    End With
    
    ' 过滤辅助列为TRUE的行
    dataRange.Offset(0, 7).Resize(, 1).AutoFilter Field:=1, Criteria1:="TRUE"
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
End Sub

用完后可以根据需求删除辅助列，或保留供后续使用。

方法2：高级筛选（无需辅助列，更专业） #

用AdvancedFilter实现复杂多条件，需要先设置条件区域：

Sub FilterWithAdvancedFilter()
    Application.ScreenUpdating = False
    
    Dim lastRow As Long, criteriaRow As Long
    lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    Dim dataRange As Range
    Set dataRange = ActiveSheet.Range("A1:G" & lastRow)
    
    ' 在工作表空白处设置条件区域（示例用J1:K4）
    criteriaRow = 1
    ActiveSheet.Range("J" & criteriaRow).Value = "列1" ' 此处需与A列表头内容一致
    criteriaRow = criteriaRow + 1
    ActiveSheet.Range("J" & criteriaRow).Formula = ">=158000"
    ActiveSheet.Range("K" & criteriaRow).Formula = "<159000"
    criteriaRow = criteriaRow + 1
    ActiveSheet.Range("J" & criteriaRow).Formula = ">=258000"
    ActiveSheet.Range("K" & criteriaRow).Formula = "<259000"
    criteriaRow = criteriaRow + 1
    ActiveSheet.Range("J" & criteriaRow).Value = 370006
    criteriaRow = criteriaRow + 1
    ActiveSheet.Range("J" & criteriaRow).Value = 181023
    
    ' 执行高级筛选，保留符合条件的行
    dataRange.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=ActiveSheet.Range("J1:K" & criteriaRow), Unique:=False
    
    ' 可选：清除条件区域内容
    ' ActiveSheet.Range("J1:K" & criteriaRow).ClearContents
    
    Application.ScreenUpdating = True
End Sub

注意：条件区域中，同一行的条件为AND关系，不同行的条件为OR关系，上述结构正好对应你的需求：(>=158000 AND <159000) OR (>=258000 AND <259000) OR 370006 OR 181023。

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