VBA代码用Long类型正常，改为Double等类型后失效问题咨询

咱们先来拆解为什么把变量换成Double后代码会失效：

• 当你用Long类型时，VBA会把单元格数值转换成标准整数格式的字符串（比如123直接转成"123"），拼接出来的公式=123-456完全符合Excel的语法规则，自然能正常运行。
• 但换成Double类型后，问题就出在数值转字符串的格式兼容性上：
  1. 科学计数法干扰：如果单元格是极小或极大的浮点数，VBA会自动用科学计数法来表示（比如0.000001会变成"1E-06"），而Excel公式里直接写科学计数法会被识别为无效文本，无法计算。
  2. 区域设置的小数点差异：如果你的系统区域设置用逗号作为小数点（比如欧洲地区），Double数值转字符串时会用逗号替代点（比如1.5变成"1,5"），但Excel公式要求用点作为小数点，拼接出来的=1,5-2,3会被判定为无效公式。

另外还要提个隐藏问题：你当前的代码执行cell = ActiveCell.Value时，已经提取了单元格的原始值，但运行公式后单元格会被公式覆盖，下次执行就会用计算后的值而非原始值——不过这是次要问题，先解决核心的类型转换bug。

可靠的实现方案 #

要实现「当前单元格完整原始值减去左侧相邻单元格的值」，最稳妥的方式是直接引用单元格地址，彻底避开数值类型转换的坑：

Sub Minus()
    ' 用单元格地址拼接公式，直接保留原始值的引用
    ActiveCell.Formula = "=" & ActiveCell.Address & "-" & ActiveCell.Offset(0, -1).Address
End Sub

如果因为特殊需求必须提取值再拼接（比如要先对原始值做额外处理），可以用Format函数强制转换成Excel能识别的格式：

Sub MinusWithDouble()
    Dim cellVal As Double
    Dim offsetVal As Double
    
    cellVal = ActiveCell.Value
    offsetVal = ActiveCell.Offset(0, -1).Value
    
    ' 用General格式转字符串，适配Excel公式语法
    ActiveCell.Formula = "=" & Format(cellVal, "General") & "-" & Format(offsetVal, "General")
End Sub

这样不管是整数、浮点数，还是不同区域设置下的小数点格式，都能生成有效的Excel公式。

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