Double类型变量Diff应为0时，If语句误判非0的问题排查

这不是数值格式的问题，而是双精度浮点数（Double）的二进制存储特性导致的精度误差——你遇到的是VBA里非常常见的“看似等于0却实际不等于0”的坑。

为什么会这样？ #

Double类型用二进制存储十进制小数，但很多十进制小数（比如0.1、0.04这类）无法被二进制精确表示，只能近似存储。当你进行连续的减法计算时，这些微小的近似误差会累积，最终导致你的Diff看起来应该是0，但实际是一个极其接近0的极小值（比如1.4210854715202e-14），所以If Diff <> 0会判定为真。

解决方案：两种靠谱的处理方式 #

根据你的场景，推荐两种方法：

1. 对计算结果取整到指定小数位

既然你的数值都是两位小数，直接用Round函数把结果四舍五入到两位小数，就能消除微小误差：

Dim Diff As Double
Sheet1.Activate ' 这里建议用Sheet1（工作表代码名）更可靠，避免名称变更问题
Diff = Round(4382.98 - 4117.34 - 265.64, 2) ' 取两位小数

If Diff <> 0 Then
    ActiveSheet.Range("A2").Value = 265.64 + Diff
End If

如果Diff的数值来自单元格，也可以先对单元格值取整再计算：

Diff = Round(Sheet1.Range("X1").Value - Sheet1.Range("X2").Value - Sheet1.Range("X3").Value, 2)

2. 用阈值判断“近似等于0”

如果不想修改计算结果，可以判断Diff的绝对值是否小于一个极小的阈值（比如针对两位小数，用0.0001就足够），来替代直接判断是否等于0：

Dim Diff As Double
Sheet1.Activate
Diff = 4382.98 - 4117.34 - 265.64

If Abs(Diff) > 0.0001 Then ' 绝对值大于极小值才执行
    ActiveSheet.Range("A2").Value = 265.64 + Diff
End If

额外提个小细节 #

你的代码里有两处容易踩坑的地方，虽然你说其他语句没问题，但还是提醒下：

• Sheets(Sheet1).Activate：如果是工作表名称，应该写成Sheets("Sheet1").Activate；如果是工作表的代码名（在VBA编辑器的属性窗口里的(Name)），直接写Sheet1.Activate更稳妥。
• Range(A2)：这里需要加引号，写成Range("A2")，否则VBA会把A2当成变量，容易报错。

内容的提问来源于stack exchange，提问作者J. Mill