vba - If Then 语句上的运行时错误 '13' "Type Mismatch"

Question

我收到以下代码的运行时错误“13”(类型不匹配)，我不知道为什么。在我添加“and”和第二个条件之前它正在工作。第一个 (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