excel - 如何让我的循环搜索一个值而不是一串单词？

Question

我有一些数据在单元格中既有单词又有值，我试图删除单元格中没有值的行。如果所有数字都是负数，我的代码现在可以工作，但如果有正数，那么我的代码将无法工作。我该如何解决？

Sub tval 
    Dim s As Long
    Dim LastRow As Long

    S=2
    LastRow= cells.find(“*”,[A1],,, xlByRows,xlPreviousRow).row
    Do until s>LastRow
    DoEvents
    If InStr(1,Cells(s,4), “-“) > 0 Then
        S=s+1
    Else
        Cells(s,4).EntireRow.Delete
        LastRow=LastRow -1
    End if 
Loop
End sub

Answer 1

删除行时，应始终从末尾开始。

Sub tval 
    Dim s As Long
    Dim LastRow As Long

    LastRow= Cells(Rows.Count, 1).End(xlUp).Row
    For s= LastRow to 2 Step -1
          If Not IsNumeric(Cells(s,4)) then
                Cells(s,4).EntireRow.Delete
          End if 
    Next s
End sub