数字范围而不是文本vb.net

Question

所以这是我想出的删除Excel工作表中的行的代码。它适用于一行文本，但其中一列包含两位小数的数字，例如2.31 3.65 1.01。我如何调整代码，以便如果一个单元格包含1.59和2.31之间的数字，它将删除该行。我想我需要对整数进行调暗，但不确定是什么或者是什么。非常感谢

    Dim objExcel As Integer
    Dim objWorkbook As Object
    Dim objRange As Object
    Dim i As Integer
    objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True

    objWorkbook = objExcel.Workbooks.Open("C:\test.xls")

    i = 1

    Do Until objExcel.Cells(i, 4).Value = ""
        If objExcel.Cells(i, 4).Value < "2" Then
            objRange = objExcel.Cells(i, 100).EntireRow
            objRange.Delete
            i = i - 1
        End If
        i = i + 1
    Loop

Answer 1

我会改变这一行：

If objExcel.Cells(i, 4).Value < "2" Then

到此：

If isNumeric(objExcel.Cells(i, 4).Value) AndAlso _
    CDbl (objExcel.Cells(i, 4).Value)>1.59 AndAlso _ 
    CDbl (objExcel.Cells(i, 4).Value)<2.31 Then

有关详细信息，请参阅msdn上的isNumeric和CDbl函数。