VBA向公式添加Double类型变量Margin时触发运行时错误1004

错误根源 #

问题出在系统区域设置的小数分隔符差异上：
当你直接拼接Double类型的Margin变量时，VBA会按照系统默认的小数分隔符输出数值。如果你的系统用逗号（,）作为小数分隔符，0.2会被转换成0,2，但Excel公式要求用点（.）作为小数分隔符，这就导致公式语法非法，触发1004运行时错误。
而拆分变量手动拼接点号的方式能正常运行，是因为你强制指定了符合公式要求的分隔符。

两种可行解决方案 #

方案1：用Str函数强制转换格式 #

Str函数会把数值转换成以点号为小数分隔符的字符串，不受系统区域设置影响，完美适配Excel公式语法：

Dim Margin As Double
Margin = 0.2

For i = 7 To lr1
    If Cells(i, "D").Value <> "" Then
        Range("E" & i).FormulaR1C1 = "=RC[-1]/(1-" & Str(Margin) & ")"
    End If
Next i

方案2：改用FormulaLocal适配区域设置 #

如果想保留系统区域的格式习惯，可以使用FormulaLocal属性，它会自动匹配系统的小数分隔符。注意这个属性不支持R1C1引用样式，需要改用A1样式：

Dim Margin As Double
Margin = 0.2

For i = 7 To lr1
    If Cells(i, "D").Value <> "" Then
        Range("E" & i).FormulaLocal = "=D" & i & "/(1-" & Margin & ")"
    End If
Next i

小优化：简化空值判断逻辑 #

原代码里的空分支可以直接省略，用Cells(i, "D").Value <> ""直接判断，减少冗余代码。

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