一、先搞定核心的精度丢失问题 #

你遇到的Double参数被截断的情况，大概率和工作簿的Excel设置或者上游UDF有关——毕竟空白工作簿没问题，说明不是UDF本身的语法问题。给你几个排查和修复步骤：

1. 检查「以显示精度为准」设置
   这个设置是很多Excel精度问题的“元凶”——它会让Excel把单元格显示的数值当成实际存储值来计算，哪怕单元格里存的是更精确的数。操作步骤：

   • 打开问题工作簿，点击「文件」→「选项」→「高级」
   • 找到「计算此工作簿时」区域，取消勾选「将精度设为所显示的精度」
   • 确认后按F9重新计算，看看精度是否恢复

2. 验证上游UDF的真实输出
   你说C列是另一个Double类型UDF的输出，那先确认这个上游UDF返回的是不是完整的数值：

   • 在空白单元格输入=C1（假设C1是目标单元格），然后用=ROUND(C1,10)查看实际存储的小数位；或者打开VBA的立即窗口（按Ctrl+G），输入?Range("C1").Value，直接看单元格的真实数值
   • 如果上游UDF返回的数值本身就被截断了，那要检查它的代码，有没有用Round函数、或者不小心把结果转成了Single类型（Single精度比Double低很多）

3. 调试当前UDF的参数传递
   可以给你的UDF加一句调试代码，看看传入的参数到底是什么：

   Function Wage(HourlyWage As Double, HoursWorked As Double) As Double
       Debug.Print "传入的HourlyWage：" & HourlyWage ' 新增调试语句
       Wage = HourlyWage
   End Function
   

   运行UDF后，打开VBA立即窗口，就能看到真实传入的数值，判断是参数传递的问题还是其他环节的问题

二、关于浮点数的两个疑问 #

1. 为什么十进制数无法在二进制中精确表示？

要知道，计算机是用二进制存储数值的。十进制小数转二进制的方法是「乘2取整，直到小数部分为0」，但很多十进制小数（比如0.1、0.2）在这个过程中会无限循环，永远无法得到小数部分为0的结果。比如0.1转二进制是0.0001100110011...循环，所以只能用近似值存储，这就是无法精确表示的根源。

2. 浮点数为什么会有不准确性？

本质还是二进制存储的局限性：Double类型用64位存储数值，其中52位是尾数，最多能保留15-17位有效数字。对于无法精确表示的十进制小数，存储时会舍入到最接近的二进制近似值，计算时这些微小误差可能会累积。不过你遇到的不是这种常规误差——常规误差是小数点后多位的微小偏差，而你的情况是直接截断到第四位，更可能是前面说的Excel设置或上游UDF的问题。

三、优化工作簿计算速度的建议 #

你的工作簿有40个关联UDF、11个工作表，计算耗时10秒，确实有点慢，给你几个优化方向：

• 调整计算模式：把自动计算改成手动计算（「公式」→「计算选项」→「手动」），需要刷新时按F9，避免每次修改参数都自动重算
• 优化UDF代码：
  • 减少UDF的调用次数，比如把多个小UDF合并成一个，或者用数组公式批量计算
  • 避免在UDF里频繁读写单元格，尽量一次性把需要的数据读入数组（比如Dim arr As Variant: arr = Range("C:C").Value），在内存里计算后再输出，减少和Excel界面的交互
  • 去掉不必要的Volatile属性——这个属性会让UDF每次计算都刷新，如果你的UDF只需要在参数变化时更新，就不要加它
• 清理工作表：删除或隐藏不需要的行/列，减少计算范围；把参数表和计算表分开，避免交叉引用过多
• 关闭屏幕更新：如果有批量计算的VBA代码，开头加Application.ScreenUpdating = False，结尾加Application.ScreenUpdating = True，减少界面刷新的耗时
• 检查循环引用：打开「公式」→「错误检查」→「循环引用」，找到并修复循环引用，它会导致重复计算，严重拖慢速度

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