Question

我收到以下代码的运行时错误“13”（类型不匹配），我无法弄清楚原因。在我添加“和”和第二个条件之前它正在工作。第一个（a，43）值是读数为“#N / A”的错误。有任何想法吗？

If IsNumeric(Sheets("Reuters").Cells(a, 43).Value) = True And _ 
Abs(Sheets("Reuters").Cells(a, 43).Value) >= 0.0799 Then
        pfl = "P"
        ct = ct + 1
    Else
        pfl = Empty
    End If

Answer 1

将您的代码更改为

pfl = Empty
If IsNumeric(Sheets("Reuters").Cells(a, 43).Value) Then
    If Abs(Sheets("Reuters").Cells(a, 43).Value) >= 0.0799 Then
        pfl = "P"
        ct = ct + 1
    End If
End If

If Then Statement上的运行时错误'13'“Type Mismatch”

1 个答案: