vba - 特定の値未満のフィールドを削除するVBA

Question

私はExcelに次の列を持っています

Sales Record Number
5100
5275
5310
5355
5357
5359
15
Seller ID: 233

値が 5000 を超える行のみを表示するには、VBA コードが必要なので、「販売レコード番号、「15」、および「販売者 ID」を削除する必要があります。

私は次のことを試しました：

Sub DeleteRows()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim i As Long
    For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Not (Range("C" & i).Value < 5000) Then
            Range("C" & i).EntireRow.Delete
        End If
    Next i
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

Answer 1

それが数値かどうかを最初にチェックする If ステートメントの調整は、トリックを行う必要がありますか?

Sub DeleteRows()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim i As Long
    For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Not IsNumeric(Range("C" & i).Value) Or Range("C" & i).Value < 5000 Then
            Range("C" & i).EntireRow.Delete
        End If
    Next i
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub