Vba循环删除Cell中具有数值的行

Question

我想删除单元格中带有数值的任何行。当我运行以下代码时，它正确评估IsEmpty和IsNumeric（）函数并删除该行。但是由于某种原因它会停止并在3次尝试后完成。注意：我尝试过Cell.Value和Cell.Value2。

For Each Cell In Range("H1:H600")
    If Not IsEmpty(Cell) Then
        If IsNumeric(Cell.Value) Then
            Cell.EntireRow.Delete
        End If
    End If
Next

Answer 1

如果您没有该范围内的公式：

Range("H1:H600").SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Delete