如果行中的一个单元格包含错误，如何删除整行？

Question

On Error Resume Next
Columns("C").SpecialCells(xlFormulas, xlErrors).EntireRow.Delete
On Error GoTo 0

Range("A6").Select

This is what I have. I was working fine.

The problem is when the columns C does not have errors, it keeps showing an error message saying it can't fine the error type.

It works fine when there are errors.

Does anyone know how to fix this? Maybe an if statement?

Thanks guys

Answer 1

This seems to work:

Sub marine()
    Dim r As Range
    On Error Resume Next
    Set r = Range("C:C").Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
    On Error GoTo 0
    If Not r Is Nothing Then
        r.EntireRow.Delete
    End If
End Sub

If it does not work and you still see an error message, then error handling must be enabled. From the VBE window menu:

Tools > Options... > General > and make sure Break on Unhandled Errors is checked.