VBA使用变量作为AutoFilter条件报‘对象要求’错误，求解决方案

原代码的错误点 #

• Filter被声明为String类型，却错误使用Set关键字赋值（Set仅用于对象类型赋值，普通字符串直接赋值即可）
• 引用Filter.Value无效：Filter是字符串变量，本身就是值，不需要.Value属性
• 循环中Rows(iCntr)未指定工作表，可能误操作当前激活表而非目标表XX
• 代码缺少Next iCntr和完整的End Sub闭合
• 固定lastRow=300不够灵活，无法适配数据行数变化

修正后的完整代码 #

Sub KeepOnlyFiltered()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim filterCriteria As String ' 重命名变量避免与内置函数冲突
    
    ' 获取Controls表A1单元格的筛选条件
    filterCriteria = Worksheets("Controls").Range("A1").Value
    ' 绑定目标工作表
    Set ws = ActiveWorkbook.Sheets("XX")
    
    ' 清除已有筛选，避免干扰
    ws.AutoFilterMode = False
    ' 执行筛选：以A列为筛选列，应用指定条件
    ws.Range("A1").AutoFilter Field:=1, Criteria1:=filterCriteria
    
    ' 动态获取A列最后一行数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从下往上遍历，删除隐藏的未筛选行
    Dim iCntr As Long
    For iCntr = lastRow To 1 Step -1
        If ws.Rows(iCntr).Hidden Then
            ws.Rows(iCntr).EntireRow.Delete
        End If
    Next iCntr
    
    ' 取消筛选（可选，根据需求保留）
    ws.AutoFilterMode = False
End Sub

关键改进说明 #

• 变量重命名为filterCriteria，避免与VBA内置Filter函数重名引发冲突
• 动态获取数据最后一行，适配数据行数的变化
• 操作前清除已有筛选状态，防止历史筛选影响结果
• 所有行操作绑定到目标工作表ws，避免跨表操作错误
• 修复变量赋值与属性引用错误，彻底解决「对象要求」报错

内容的提问来源于stack exchange，提问作者Tan Boon Huat