VBA中IF-THEN-ELSE判断单元格相等结果出错是什么原因？

问题原因 #

你遇到的问题是Excel VBA数值判断的常见场景，核心原因有两个：

1. 浮点数精度误差
   Excel存储数值默认使用双精度浮点数格式，你在单元格里看到的0.009是单元格格式化后截断显示的结果，实际底层存储的数值可能存在极小的尾差：比如一个实际为0.009000000000123，另一个为0.008999999999945，格式化后都显示为0.009。
   Excel工作表自带的相等判断会自动忽略这类极小的精度差，而VBA默认的<>比较是严格对比底层二进制数值，就会出现工作表公式判断相等、VBA判断不等的差异。
   你可以通过以下代码打印放大后的数值，确认是否存在精度差：

Debug.Print Range("L2").Value * 10000000000
Debug.Print Range("M2").Value * 10000000000

2. 类型不匹配/存在不可见字符
   你给出的调试输出中第一个0.009后面带有空格，说明其中一个单元格的值可能是文本类型，末尾带有空格、换行符等不可见空白字符，和数值类型的值对比时会直接判定为不等。

解决方法 #

你可以根据自己的场景选择以下任意一种方案修复：

• 方案1：统一对比精度，对两个值四舍五入到相同小数位后再判断，适合确定对比精度的场景，比如你需要对比3位小数：

If Round(Range("L2").Value, 3) <> Round(Range("M2").Value, 3) Then
    Range("N2").Value = "NOT OK"
Else
    Range("N2").Value = "OK"
End If

• 方案2：先处理空白字符再转数值对比，适合存在文本、不可见字符的场景：

Dim val1 As Double, val2 As Double
val1 = CDbl(Trim(Range("L2").Text))
val2 = CDbl(Trim(Range("M2").Text))
If val1 <> val2 Then
    Range("N2").Value = "NOT OK"
Else
    Range("N2").Value = "OK"
End If

• 方案3：直接调用Excel工作表的相等判断逻辑，和你之前用Excel公式判断的结果完全一致：

If Not WorksheetFunction.Equal(Range("L2"), Range("M2")) Then
    Range("N2").Value = "NOT OK"
Else
    Range("N2").Value = "OK"
End If

内容的提问来源于stack exchange，提问作者Nini