「沒有找到單元」錯誤

我有這段代碼得到「找不到單元」的錯誤。我不明白爲什麼如果我使用的是on error resume next，並且有時會在該列中沒有任何"INATIVE"。「沒有找到單元」錯誤

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

其中12也可以寫成xlCellTypeVisible。

下面是線條和更加清晰前後：

的On Error GoTo 0清除On Error Resume Next條件：

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

來源

2014-06-19 William

'On Error GoTo 0'清除'On Error Resume Next'條件。因此，您需要將「On Error GoTo 0」向下移動到「End With」之前， – tigeravatar

重大問題已解決，謝謝... – William

@tigeravatar發佈答案？ – pnuts

轉換評論回答。因此，您需要將On Error GoTo 0向下移動到End With之前。

來源

2014-06-26 20:22:22 tigeravatar

「沒有找到單元」錯誤

回答

相關問題