Excel表格按列名STATUS筛选的VBA宏AutoFilter方法失败求助

错误根源 #

你当前代码中使用.ListObjects("Table1").ListColumns("STATUS").Range.AutoFilter , Criteria1:="O"引发错误，核心原因是直接对列表列的Range调用AutoFilter时，未正确关联表格的AutoFilter对象，且缺少必要的字段参数。正确的做法是通过表格（ListObject）自身的AutoFilter属性来配置筛选，利用列名获取对应索引作为筛选字段标识。

修正后的完整代码 #

Sub OpenPOs()
    
Dim wbInventory As Workbook
Set wbInventory = Workbooks("IWI Inventory MASTER Report.xlsb")
    
   With wbInventory
      With wsPOTracker '目标工作表的代码名
        Dim tbl As ListObject
        Set tbl = .ListObjects("Table1")
                
        '清除表格筛选
         If Not tbl.AutoFilter Is Nothing Then
             tbl.AutoFilter.ShowAllData
         End If
               
         '对STATUS列应用筛选条件"O"
         tbl.AutoFilter.ShowAllData '确保筛选状态完全重置
         tbl.AutoFilter Field:=tbl.ListColumns("STATUS").Index, Criteria1:="O"

         '后续代码
      End With
   End With
End Sub

核心优化点 #

• 将表格对象赋值给变量tbl，简化代码结构，减少重复调用
• 通过tbl.ListColumns("STATUS").Index动态获取列索引，满足你“用列名而非固定索引”的需求，适配表格结构变化
• 额外执行一次ShowAllData，彻底重置筛选状态，避免残留筛选规则导致异常

额外排查项 #

• 确认表格中存在准确匹配的STATUS列名（注意特殊字符、空格需完全一致）
• 验证wsPOTracker是目标工作表的代码名（可在VBA编辑器属性窗口查看，区别于工作表标签名）

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