VBA筛选删除表格特定行时遇‘命名参数未找到’编译错误求助

错误原因 #

你遇到的「Compile error: Named argument not found」是因为AutoFilter多条件写法错误——不能直接在Criteria1参数后罗列多个值，必须将多条件封装为数组，同时指定Operator:=xlFilterValues参数启用多值筛选。

修正后的代码（删除指定4类条目） #

Sub DeleteRows()
    Dim tbl As ListObject
    Set tbl = Sheet2.ListObjects("Table13")
    
    ' 清除现有筛选状态
    tbl.AutoFilter.ShowAllData
    
    ' 第15列筛选出INF/IWC/ONF/OWC四类条目
    tbl.Range.AutoFilter Field:=15, Criteria1:=Array("INF", "IWC", "ONF", "OWC"), Operator:=xlFilterValues
    
    ' 处理无匹配行的情况，避免报错
    On Error Resume Next
    ' 删除筛选出的可见数据行
    tbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
    On Error GoTo 0
    
    ' 清除筛选
    tbl.AutoFilter.ShowAllData
End Sub

更直接的写法（保留COB条目） #

既然最终只需要保留COB条目，也可以直接筛选出非COB的行再删除，逻辑更直观：

Sub DeleteRows_KeepCOB()
    Dim tbl As ListObject
    Set tbl = Sheet2.ListObjects("Table13")
    
    tbl.AutoFilter.ShowAllData
    ' 第15列筛选出不等于COB的条目
    tbl.Range.AutoFilter Field:=15, Criteria1:="<>COB"
    
    On Error Resume Next
    tbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
    On Error GoTo 0
    
    tbl.AutoFilter.ShowAllData
End Sub

关键修改说明 #

• 多条件筛选必须用Array()包裹值，配合Operator:=xlFilterValues参数，这是VBA多值筛选的标准语法
• 增加错误处理语句，避免没有匹配行时SpecialCells方法触发报错
• 直接操作ListObject对象（结构化表格），比嵌套With语句更清晰，也能避免表头被误删

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