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

时间:2013-09-10 15:16:33

标签: excel-vba vba excel

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

Range("A6").Select

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

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

出现错误时工作正常。

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

谢谢你们

1 个答案:

答案 0 :(得分:3)

这似乎有效:

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窗口菜单:

工具> 选项...... > 一般>并确保选中未处理错误中断