VBA检查XLErrValue #VALUE的单元格值！投掷类型不匹配

Question

为什么跟随代码会抛出 Type mismatch 错误

If Range("J" & i).Value = CVErr(xlErrValue) Then
    Range("J" & i).Interior.Color = 255
End If

我应该使用.Value

以外的其他内容吗？

Answer 1

函数CVErr()返回Error类型的值。您无法将此值与Error之外的任何其他类型的数据进行比较，因为它会导致运行时13：类型不匹配错误。

为了避免此错误，您需要修改代码，如下所示：

If VBA.IsError(Range("J" & i).Value) Then
    If Range("J" & i).Value = CVErr(xlErrValue) Then
        Range("J" & i).Interior.Color = 255
    End If
End If