“找不到细胞”错误

Question

我有这段代码得到了＃34;没有找到细胞＆＃34;错误。我不明白为什么如果我使用on error resume next，有时候该列中的任何"INATIVE"都不会。

Intersect(.UsedRange, .UsedRange.Offset(1)).SpecialCells(12).EntireRow.Delete

其中12也可以写为xlCellTypeVisible。

以下是更清晰的前后行：

With Sheets("Temp Activos")
    On Error Resume Next
    .UsedRange.AutoFilter 6, "INATIVE"
    On Error GoTo 0
    Intersect(.UsedRange, .UsedRange.Offset(1)).SpecialCells(12).EntireRow.Delete 
    r = WorksheetFunction.CountA(.Range("A:A"))
    .UsedRange.AutoFilter

Answer 1

将评论转换为答案：

On Error GoTo 0清除On Error Resume Next条件。因此，您需要将On Error GoTo 0向下移动到End With之前。