删除筛选行时出现“Range类的Delete方法执行失败”错误

原代码的核心问题 #

1. 对象引用错误：TestTable是ListObject（结构化表格）对象，不能直接和字符串拼接生成Range引用，这会触发类型不匹配报错。
2. 筛选参数逻辑错误：用Worksheet.Range.AutoFilter时，字段参数6是工作表全局列索引，但你要筛选的是表格内的列，应该用表格内部的列索引，或直接通过表格对象操作筛选。
3. 删除行操作不严谨：直接调用EntireRow.Delete可能误删表格外的行，且如果筛选后无可见数据行，SpecialCells会抛出“无单元格可见”的错误。

修正后的代码 #

Sub DeleteRows()
    Dim ws As Worksheet
    Dim testTable As ListObject
    Dim targetCol As ListColumn
    Dim visibleDataRows As Range
    
    Set ws = Sheets("Score")
    Set testTable = ws.ListObjects("Score")
    Set targetCol = testTable.ListColumns("Correct/Incorrect")
    
    ' 对表格目标列筛选"Correct"
    testTable.Range.AutoFilter Field:=targetCol.Index, Criteria1:="Correct"
    
    ' 处理无可见行的异常情况
    On Error Resume Next
    Set visibleDataRows = testTable.DataBodyRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 仅当存在可见行时执行删除
    If Not visibleDataRows Is Nothing Then
        visibleDataRows.Delete
    End If
    
    ' 关闭表格筛选
    testTable.AutoFilter.ShowAllData
End Sub

关键优化点 #

• 直接通过ListObject和ListColumn对象操作，彻底避免字符串拼接的类型错误
• 用testTable.DataBodyRange定位表格数据区域，仅操作表格内的行，不会影响表格外内容
• 增加错误捕获逻辑，防止筛选后无数据行时的报错
• 调用testTable.AutoFilter.ShowAllData关闭筛选，更适配结构化表格的操作规范

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