Excel VBA高级筛选失效，运行时错误'1004'求助

嘿，我看了你遇到的问题——用VBA做高级筛选时触发了1004错误，咱们一步步来搞定它。

首先，先拆解你代码里的几个核心问题：

• 你用了Range("Email!Criteria")，但这个命名范围根本不存在，VBA找不到对应的区域，这是触发1004错误的主要原因。
• 你提前执行了AutoFilter操作，这完全没必要，高级筛选（AdvancedFilter）不需要先开启普通自动筛选，反而可能打乱筛选逻辑。
• 条件区域的表头设置错了：你把M1设成了"Date"，但你要筛选的是F列的内容，条件区域的第一行必须和F列的表头完全一致，不然VBA不知道你要筛选哪一列。

接下来是修正后的完整代码，我加了注释方便你理解：

Function Advanced_Filter()
    ' 定义工作表对象，避免反复切换激活状态，让代码更稳定
    Dim ws As Worksheet
    Set ws = Sheets("Email")
    
    ' 设置条件区域：直接引用F列的表头，避免手动输入出错
    ws.Range("M1").Value = ws.Range("F1").Value
    ' 设置筛选条件：匹配F列中包含"X"的内容
    ws.Range("M2").Value = "X"
    
    ' 执行高级筛选：直接用具体的单元格范围作为条件区域
    ws.Range("A1:F244").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=ws.Range("M1:M2"), _
        CopyToRange:=ws.Range("M3"), _
        Unique:=False
        
    ' 如果不需要保留条件区域的内容，可以加上下面这行清除
    ' ws.Range("M1:M2").ClearContents
End Function

再补充几个关键要点：

• 高级筛选的条件区域必须是表头+条件的结构，表头要和目标列的表头完全匹配（大小写、空格都不能错）。
• 尽量避免用Select和ActiveCell，直接引用单元格对象会让代码更稳定，也不会因为工作表切换出问题。
• 如果你的数据行数不是固定244行，可以改成ws.Range("A1").CurrentRegion来自动识别整个数据区域，这样代码更灵活。

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