VBA删除Excel筛选行时报运行时错误1004：Range对象Delete方法失败

• 核心触发点是删除时引用了EntireRow：结构化表格（ListObject）筛选状态下，调用EntireRow.Delete会引用工作表整行，超出表格自身的范围边界，Excel会因跨对象范围操作权限限制抛出1004错误。
• 缺少空值容错：如果双字段筛选后没有符合条件的行，SpecialCells(xlCellTypeVisible)会返回空对象（Nothing），直接调用Delete方法必然触发运行时错误。
• 偏移取数的边界问题：直接对ListObject.Range做Offset(1,0)偏移，如果表格末行刚好是工作表最大行，偏移后会出现范围越界，也可能诱发报错。

Dim targetTable As ListObject
Dim deleteRng As Range

On Error Resume Next
Set targetTable = ThisWorkbook.Worksheets("Table1").ListObjects("coordinates")

' 清除历史筛选
If targetTable.AutoFilter.FilterMode Then targetTable.AutoFilter.ShowAllData

' 保留原有双字段筛选逻辑
With targetTable.Range
    .AutoFilter Field:=3, Criteria1:=longitude_arr, Operator:=xlFilterValues
    .AutoFilter Field:=4, Criteria1:=latitude_arr, Operator:=xlFilterValues
End With

' 抓取筛选后的数据行可见区域
Set deleteRng = targetTable.DataBodyRange.SpecialCells(xlCellTypeVisible)
On Error GoTo 0

' 存在待删除行时再执行删除
If Not deleteRng Is Nothing Then
    Application.ScreenUpdating = False
    deleteRng.Delete
    Application.ScreenUpdating = True
End If

' 操作完成后重置筛选状态
targetTable.AutoFilter.ShowAllData

• 直接通过ListObject.DataBodyRange取表格数据区域，自动跳过表头，不需要手动做Offset偏移；删除时不调用EntireRow，直接对表格范围内的可见单元格执行Delete，从根源避免跨范围引用冲突。
• 增加错误捕获，在调用SpecialCells前开启错误容错，执行后判断待删除区域是否存在，无匹配行时直接跳过删除逻辑，不会触发空对象报错。
• 删除操作前临时关闭屏幕更新，减少大量行删除时的界面重绘开销，同时避免偶发的渲染冲突导致方法调用失败。
• 操作前后主动重置表格筛选状态，避免残留筛选条件干扰后续操作。
• 现有双字段独立筛选的写法默认取两个条件的交集，如果你需要的是「经度+纬度成对精确匹配」的筛选效果，当前逻辑符合要求，无需额外调整。

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