Excel VBA自动筛选报错1004求助：按协定筛选数据至对应工作表

报错原因分析 #

出现运行时错误'1004': Autofilter method of range class failed主要源于以下几个问题：

• 筛选范围错误：用ActiveSheet.Range("A2")作为筛选范围，AutoFilter需要作用于包含表头的完整数据区域（通常是表头所在行的整个数据范围），仅指定单个单元格会导致筛选逻辑失效。
• 未处理已有筛选状态：若工作表已存在筛选，重复调用AutoFilter或执行ShowAllData时会触发错误。
• 单元格引用未限定工作表：代码中Cells(2, 1)这类引用未绑定到指定工作表，若激活的工作表切换，会导致引用错误。
• 行列数计算不准确：用CountA计算行数/列数时，若数据区域存在空单元格，会导致计算结果偏小，无法覆盖完整数据。

修复后的代码 #

1. Other FTA 筛选代码 #

Sub FilteringOFTA()
    Dim count_column As Long, count_row As Long
    Dim extractws As Worksheet, to_ofta As Worksheet
    Dim dataRange As Range
    
    ' 直接绑定工作表对象，避免依赖Activate/Select
    Set extractws = ThisWorkbook.Sheets("Extract")
    Set to_ofta = ThisWorkbook.Sheets("Other FTA")
    
    With extractws
        ' 清除已有筛选状态
        If .AutoFilterMode Then .AutoFilterMode = False
        
        ' 获取完整数据区域的行列数（从表头行开始计算）
        count_row = .Cells(.Rows.Count, "A").End(xlUp).Row
        count_column = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Set dataRange = .Range(.Cells(1, 1), .Cells(count_row, count_column))
        
        ' 仅当存在数据行时执行筛选操作
        If count_row > 1 Then
            ' 对完整数据区域应用筛选，Field=17对应数据区域的第17列
            dataRange.AutoFilter Field:=17, Criteria1:=Array("MY", "SG", "MX", "CH", "IN"), Operator:=xlFilterValues
            
            ' 复制可见数据（跳过表头，从第2行开始）
            .Range(.Cells(2, 1), .Cells(count_row, count_column)).SpecialCells(xlCellTypeVisible).Copy
            to_ofta.Cells(2, 1).PasteSpecial xlPasteValues
            Application.CutCopyMode = False
        End If
        
        ' 清理筛选状态
        If .AutoFilterMode Then .AutoFilterMode = False
    End With
    
    ' 定位到目标工作表表头
    to_ofta.Activate
    to_ofta.Range("A1").Select
End Sub

2. RCEP 筛选代码 #

Sub KRCNAutofilter()
    Dim count_column As Long, count_row As Long
    Dim fromextract As Worksheet, to_rcep As Worksheet
    Dim dataRange As Range
    
    Set fromextract = ThisWorkbook.Sheets("Extract")
    Set to_rcep = ThisWorkbook.Sheets("RCEP")
    
    With fromextract
        If .AutoFilterMode Then .AutoFilterMode = False
        
        count_row = .Cells(.Rows.Count, "A").End(xlUp).Row
        count_column = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Set dataRange = .Range(.Cells(1, 1), .Cells(count_row, count_column))
        
        If count_row > 1 Then
            dataRange.AutoFilter Field:=17, Criteria1:=Array("CN", "KR"), Operator:=xlFilterValues
            
            .Range(.Cells(2, 1), .Cells(count_row, count_column)).SpecialCells(xlCellTypeVisible).Copy
            to_rcep.Cells(2, 1).PasteSpecial xlPasteValues
            Application.CutCopyMode = False
        End If
        
        If .AutoFilterMode Then .AutoFilterMode = False
    End With
    
    to_rcep.Activate
    to_rcep.Range("A1").Select
End Sub

新手关键指导 #

1. 避免过度依赖Activate/Select：直接绑定工作表对象（如Set extractws = ThisWorkbook.Sheets("Extract")），再用extractws.Cells(...)引用单元格，能避免因工作表切换导致的错误，代码更稳定。
2. AutoFilter的正确用法：必须作用于包含表头的完整数据区域，Field参数是从数据区域第一列开始计数的序号（比如Field:=17指数据区域的第17列，若数据从A1开始则对应工作表Q列）。
3. 处理空数据场景：添加If count_row > 1 Then判断，避免仅存在表头时执行筛选和复制操作，防止触发错误。
4. 安全清除筛选：用AutoFilterMode = False清除筛选，比ShowAllData更可靠——后者在无筛选状态下会报错。
5. 变量类型规范：优先用Long代替Integer，因为Excel行数可能超过Integer的最大值（32767），避免溢出错误。

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