VBA筛选表第13列<0.5值删除可见行提示无单元格报错

• 操作目标：对Aluminum Futures工作表内名为PF的结构化表格（ListObject）第13个字段做筛选，提取值小于0.5的记录，删除筛选后可见的数据行
• 异常情况：运行代码时弹出「未找到单元格」报错，但原始数据中确实存在满足筛选条件的值
• 原问题代码：

Dim lo As ListObject
Set lo = Worksheets("Aluminum Futures").ListObjects("PF")

lo.Range.AutoFilter Field:=13, Criteria1:="<0.5"

Application.DisplayAlerts = False
lo.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True

lo.AutoFilter.ShowAllData

这是VBA中SpecialCells方法的典型触发场景，核心问题有两个：

1. 执行筛选前没有清空表格原有的筛选规则，多条件叠加后实际没有匹配的可见行，此时调用SpecialCells(xlCellTypeVisible)找不到目标单元格就会直接抛错，和原始数据里是否存在<0.5的值无关
2. 代码没有做容错判断，只要筛选结果为空——不管是真的无匹配数据，还是Excel筛选状态刷新的临时延迟——都会直接触发报错

替换为带前置清筛、容错判断的版本即可：

Dim lo As ListObject
Dim visibleRng As Range

Set lo = Worksheets("Aluminum Futures").ListObjects("PF")

' 先清空原有筛选，避免旧筛选条件干扰结果
If lo.AutoFilter.FilterMode Then lo.AutoFilter.ShowAllData

' 执行目标筛选
lo.Range.AutoFilter Field:=13, Criteria1:="<0.5"

' 容错捕获可见单元格，无匹配时不抛出错误
On Error Resume Next
Set visibleRng = lo.DataBodyRange.SpecialCells(xlCellTypeVisible)
On Error GoTo 0

' 仅当存在匹配的可见行时执行删除
If Not visibleRng Is Nothing Then
    Application.DisplayAlerts = False
    visibleRng.Delete
    Application.DisplayAlerts = True
End If

' 重置筛选，显示所有剩余数据
lo.AutoFilter.ShowAllData

补充排查点：如果替换代码后仍然没有筛选到目标行，优先检查两个点：一是第13列的序号是从结构化表格自身的第一列开始计数，不是从工作表A列开始计数，数列错位会导致筛选列错误；二是第13列中小于0.5的值是否为文本格式存储，文本格式的数字无法被数值比较类的筛选条件命中。

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