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

Question

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

Range("A6").Select

这就是我所拥有的。我工作得很好。

问题是当列C没有错误时，它会一直显示一条错误消息，说它无法解决错误类型。

出现错误时工作正常。

有谁知道如何解决这个问题？也许是if语句？

谢谢你们

Answer 1

这似乎有效：

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

如果它不起作用且您仍然看到错误消息，则必须启用错误处理。从VBE窗口菜单：

工具＆gt; 选项...... ＆gt; 一般＆gt;并确保选中未处理错误中断。