Excel VBA删除表格行时报Range类Delete方法执行失败错误

核心排查方向 #

• 对象引用不一致：原代码混用ActiveSheet和显式指定的Worksheets("Thundera")，如果代码运行时当前激活工作表不是Thundera，会出现跨工作表操作Range的问题，直接触发Delete方法报错。
• 无匹配筛选结果的边界异常：当第164列没有值为"Não"的行时，SpecialCells(xlCellTypeVisible)会直接抛出运行时错误，后续选中、删除逻辑全部失效。
• 结构化表格操作冲突：操作对象是名为Tabela6的ListObject（结构化表格），直接选中表格范围外的整行删除，或选中区域包含合并单元格、被锁定的受保护单元格时，Delete操作会被Excel拦截。
• 工作表权限限制：如果Thundera工作表开启了保护且未开放删除行权限，执行删除时会直接报错。
• 选择逻辑的固有缺陷：原代码全程依赖Select/Selection传递操作对象，极易受运行时鼠标操作、窗口激活状态变化影响，稳定性极差。
• 筛选字段序号不匹配：ListObject的Field参数是从表格自身第一列开始计数，不是从工作表A列开始计数，如果Tabela6的起始列不是A列，填写164会指向错误的列，导致筛选结果不符合预期。

稳定实现代码 #

以下代码完全抛弃Select选中逻辑，显式绑定所有操作对象，增加边界判断，可直接替换原逻辑运行：

Sub DeleteFilteredTableRows()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim deleteRange As Range
    
    ' 显式绑定工作簿、工作表、表格对象，不依赖任何激活状态
    Set ws = ThisWorkbook.Worksheets("Thundera")
    Set tbl = ws.ListObjects("Tabela6")
    
    ' 提前清除已有筛选，避免干扰本次操作
    If tbl.AutoFilter.FilterMode Then
        tbl.AutoFilter.ShowAllData
    End If
    
    ' 按指定条件筛选
    tbl.Range.AutoFilter Field:=164, Criteria1:="Não"
    
    ' 捕获无匹配可见行的场景，避免报错
    On Error Resume Next
    Set deleteRange = tbl.DataBodyRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 仅当存在待删除行时执行操作
    If Not deleteRange Is Nothing Then
        Application.ScreenUpdating = False
        ' 仅删除表格范围内的行，不操作表格外的工作表整行，避免触发保护/格式冲突
        deleteRange.Delete Shift:=xlUp
        Application.ScreenUpdating = True
    End If
    
    ' 清除筛选恢复表格显示
    tbl.AutoFilter.ShowAllData
End Sub

二次验证项 #

如果替换代码后仍报错，按以下顺序逐一验证：

1. 检查工作表保护状态：在VBA编辑器立即窗口执行?Worksheets("Thundera").ProtectContents，返回结果为True说明工作表开启了保护，需要先解除保护，或在代码开头添加解除保护、结尾恢复保护的逻辑。
2. 核对筛选字段序号：确认Tabela6表格的总列数≥164，且第164列确实是你需要筛选的目标列，避免字段序号错位导致筛选结果异常。
3. 检查合并单元格：确认Tabela6表格范围内不存在跨行列的合并单元格，结构化表格内的合并单元格会阻断行删除操作。

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