VBA条件判断异常求助：rngTotal.Value2为1却触发<>1分支

兄弟，这问题我之前帮好几个朋友排查过，核心原因大概率是浮点精度误差或者单元格数据类型的小坑，咱们一步步捋清楚：

1. 最常见的元凶：浮点精度误差 #

Excel和VBA底层用的是双精度浮点数存储数值，有些十进制小数没法被精确表示——看起来单元格里显示的是1，但实际存储的可能是0.999999999999998或者1.000000000000002这种极其接近1的数值。这时候直接用<> 1做判断，VBA会严格对比存储的原始值，自然会返回True，哪怕你用CDBL()转换也没用，因为转换后还是那个带精度误差的数值。

解决办法：用误差范围替代严格相等 #

不要直接对比数值，而是判断数值和1的差值是否在可接受的误差范围内，比如：

' 允许1e-7的误差，可根据你的需求调整精度
If Abs(rngTotal.Value2 - 1) > 0.0000001 And Not IsError(rngHours) Then
    ' 你的代码逻辑
End If

或者用Round()函数把数值四舍五入到足够多的小数位后再判断：

' 保留10位小数后对比，避免精度干扰
If Round(rngTotal.Value2, 10) <> 1 And Not IsError(rngHours) Then
    ' 你的代码逻辑
End If

2. 容易忽略的坑：单元格是文本型"1" #

如果单元格的格式是文本，或者你输入的时候加了前置单引号（比如'1），那么rngTotal.Value2返回的是字符串类型的"1"。虽然VBA会尝试隐式转换字符串为数字，但如果字符串里藏着不可见字符（比如空格、换行符），转换后的数值可能就不是严格的1，或者隐式转换出现异常。

解决办法：强制转换并清理文本 #

如果是文本型数据，可以先清理掉不可见字符再转换：

Dim totalVal As Double
If Not IsError(rngTotal.Value2) Then
    ' 清理不可见字符并转换为数字
    totalVal = CDbl(Trim(Replace(rngTotal.Value2, vbCrLf, "")))
    If Abs(totalVal - 1) > 0.0000001 And Not IsError(rngHours) Then
        ' 你的代码逻辑
    End If
End If

3. 快速排查方法 #

打开VBA编辑器，按Ctrl+G调出即时窗口，输入以下命令来确认问题：

• ?rngTotal.Value2：查看单元格存储的原始值，是不是真的是1
• ?rngTotal.Value2 = 1：直接看VBA的判断结果
• ?rngTotal.Value2 - 1：看数值和1的差值，如果是极小的科学计数法数值（比如-2.22044604925031E-16），那肯定是浮点精度问题

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