嘿，我完全懂你的困扰！你现在碰到的问题核心在于Excel的单元格格式只是控制显示样式，不会改变单元格里存储的实际数值——当你用Columns("E").NumberFormat = ".000,"时，只是让Excel把原本两位小数的数值（比如0.01）显示成.010，但单元格里的实际值还是0.01。一旦切回常规格式，Excel就会按数值的有效数字逻辑显示，自然就变回两位小数了。

要实现你的目标（三位小数显示+常规格式），得从改变实际值入手，下面给你两种可行的方案：

方案1：将数值转换为带三位小数的文本（适合程序接受文本输入的情况） #

如果你的自定义程序可以识别文本格式的三位小数，用这段VBA代码就能搞定：

' 把E列的数值转换成".xxx"格式的文本，非数值内容保持不变
Columns("E").Value = Evaluate("IF(ISNUMBER(E:E), TEXT(E:E, ".000"), E:E)")
' 设置为常规格式，文本会原样显示
Columns("E").NumberFormat = "General"

这样处理后，单元格里的内容变成了文本类型的.010，常规格式下会完全保留这个显示效果，导入程序时格式和内容都符合要求。

方案2：修改实际数值为三位小数（适合程序需要数值类型的情况） #

如果程序必须接收数值类型，那我们需要把实际数值转换为三位小数（虽然数值上0.01和0.010是等价的，但有些程序会识别显示的小数位数），代码如下：

' 把E列数值四舍五入到三位小数，替换原内容
Columns("E").Value = Evaluate("IF(ISNUMBER(E:E), ROUND(E:E, 3), E:E)")
' 设置为常规格式
Columns("E").NumberFormat = "General"

不过要注意：常规格式下Excel还是会自动省略末尾的零（显示0.01而不是0.010），如果程序严格要求显示三位小数，那方案1会更合适。

手动操作替代方案（不用VBA） #

如果你不想写代码，也可以手动处理：

• 先在空白单元格输入1000，复制它；
• 选中E列，右键选择「选择性粘贴」→「乘」，把数值放大1000倍；
• 再设置单元格格式为常规，然后除以1000，最后用TEXT函数把数值转换成.000格式的文本，再设置为常规格式即可。

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