VBA宏Autofilter未生效：保留xOutValue删除其余行问题排查

原代码问题点 #

1. 依赖Select/Selection/ActiveCell这类不稳定操作，ActiveCell未必是筛选后的可见区域，直接导致删除逻辑失效
2. 筛选范围仅指定F列局部区域，且未处理xOutValue类型不匹配问题（比如数值转字符串后筛选条件不生效）
3. 未考虑筛选后无可见行的场景，也未验证目标数据行是否存在

修复版AutoFilter方案 #

保留筛选逻辑，优化稳定性与兼容性：

' 筛选删除F列第12行及以下不包含xOutValue的行
Dim ws As Worksheet
Dim lastRow As Long
Dim filterRange As Range

' 建议替换为具体工作表名，避免ActiveSheet切换问题
Set ws = ThisWorkbook.Worksheets("Sheet1")
lastRow = ws.Cells(ws.Rows.Count, 6).End(xlUp).Row

' 确保存在需处理的数据行
If lastRow >= 12 Then
    ' 选择第12行到最后一行的完整数据区域（包含所有列）
    Set filterRange = ws.Range(ws.Cells(12, 1), ws.Cells(lastRow, ws.Columns.Count).End(xlToLeft))
    
    ' 根据xOutValue类型设置筛选条件
    If IsEmpty(xOutValue) Then
        filterRange.AutoFilter Field:=6, Criteria1:="<>"
    Else
        If VarType(xOutValue) = vbString Then
            filterRange.AutoFilter Field:=6, Criteria1:="<>" & xOutValue
        Else
            filterRange.AutoFilter Field:=6, Criteria1:="<>" & xOutValue, Operator:=xlFilterValues
        End If
    End If
    
    ' 处理筛选后无可见行的情况，避免报错
    On Error Resume Next
    filterRange.SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error GoTo 0
    
    ' 关闭筛选
    ws.AutoFilterMode = False
End If

无筛选的循环删除方案 #

如果数据量不大，直接从下往上循环删除更简单，规避筛选相关问题：

' 从下往上删除F列第12行及以下不符合条件的行
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long

Set ws = ThisWorkbook.Worksheets("Sheet1")
lastRow = ws.Cells(ws.Rows.Count, 6).End(xlUp).Row

' 从最后一行往前删，避免行号错乱
For i = lastRow To 12 Step -1
    If ws.Cells(i, 6).Value <> xOutValue Then
        ws.Rows(i).Delete
    End If
Next i

关键优化说明 #

• 直接操作工作表对象，彻底抛弃Select/ActiveCell，避免操作上下文变化导致的逻辑异常
• 针对xOutValue的类型（空值、字符串、数值）做适配，确保筛选条件精准匹配
• 添加错误处理与数据行存在性校验，提升代码健壮性

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