excel - 使用 IsNumeric 删除数据行

Question

我有两列数据正在使用 VBA 进行清理。如果 A 列中的值是非数字或空白，我需要删除整行。以下是我尝试使用的数据示例和代码。如果 IsNumeric 返回 false，它似乎完全跳过了删除行的代码部分。

9669    DONE
9670    OPEN
Order # STATUS

9552    
9672    

不工作的代码。

Dim cell As Range

For Each cell In Range("A1:A" & max_col)
    If IsNumeric(cell) = False Then
        Cells(cell, 1).Select
        Rows(cell).EntireRow.Delete
        Exit For
    End If
Next cell

任何帮助表示赞赏!

Answer 1

只用

    With Range("A1", Cells(Rows.Count, 1).End(xlUp))
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        .SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete
    End With

或者，如果您不确定是否会有空单元格或没有数字单元格

    With Range("A1", Cells(Rows.Count, 1).End(xlUp))
        If WorksheetFunction.CountBlank(.Cells) > 0 Then .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        If WorksheetFunction.Count(.Cells) < .Rows.Count Then .SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete
    End With