VBA中AutoFilter无法筛选Range及筛选后范围未收缩问题

一、原代码1004错误的原因 #

• AutoFilter必须包含表头行：你最初的Range("F2:F1000")没有包含表头（F1），Excel无法识别筛选的列标识，导致报错。
• Field参数是相对索引：Field指的是你指定Range内的列序号，而非工作表的绝对列号。比如你只选F列范围，Field应该是1，而不是iColKey（如果iColKey是工作表F列的绝对编号6）。

二、筛选后Range不收缩的解决方法 #

AutoFilter仅隐藏不符合条件的行，不会自动修改原Range对象的范围。要获取筛选后的可见单元格，需用SpecialCells(xlCellTypeVisible)提取，同时要处理无匹配结果的异常情况。

修正后的完整代码示例 #

Dim rSearch As Range
Dim rVisible As Range
Dim ws As Worksheet

' 绑定目标工作表
Set ws = wbMe.Sheets(iCurSheet)

' 清除工作表原有筛选（避免残留筛选影响结果）
If ws.AutoFilterMode Then ws.AutoFilterMode = False

' 设置包含表头的完整数据区域（A1到K1000，A1为表头行）
Set rSearch = ws.Range("A1:K1000")

' 应用K列筛选：Field=11对应rSearch中的第11列（即工作表K列）
rSearch.AutoFilter Field:=11, Criteria1:="=" & ws.Cells(iLine, iColKey).Value

' 处理无匹配结果的情况，避免SpecialCells报错
On Error Resume Next
' 提取数据行的可见区域（排除表头行）
Set rVisible = rSearch.Offset(1, 0).Resize(rSearch.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
On Error GoTo 0

' 判断是否有匹配结果
If Not rVisible Is Nothing Then
    MsgBox "筛选后可见行数：" & rVisible.Rows.Count
    
    ' 后续对F列再次筛选：Field=6对应rVisible中的第6列（即工作表F列）
    rVisible.AutoFilter Field:=6, Criteria1:="你的F列筛选条件"
    
    ' 可以继续对rVisible进行后续操作
Else
    MsgBox "未找到匹配的结果"
End If

' 可选：完成操作后清除筛选
If ws.AutoFilterMode Then ws.AutoFilterMode = False

关键说明 #

• 包含表头：始终将表头行纳入筛选Range，确保Excel能正确解析筛选列。
• 提取可见区域：用Offset(1,0).Resize(...)跳过表头，只取数据行的可见单元格；SpecialCells(xlCellTypeVisible)专门用于获取筛选后的可见区域。
• 异常处理：添加On Error Resume Next防止无匹配时抛出错误，之后必须判断rVisible是否有效。
• 再次筛选：后续对F列筛选时，Field参数是相对于当前Range（rVisible）的列索引，而非工作表绝对列号。

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