你的问题核心在于VBA变量没有正确嵌入到Excel公式字符串中。看这段代码：

ActiveCell.FormulaR1C1 = "=[@X1]+[@Y2]*constant"

Excel会把constant当成单元格引用或自定义名称，完全不知道这是你在VBA里定义的变量——Excel公式本身无法直接识别VBA代码里的变量，必须把变量的实际值拼接进公式字符串才行。

修正方案 #

把涉及常量的公式行改成下面这样，用&符号将VBA变量的值和公式字符串拼接：

ActiveCell.FormulaR1C1 = "=[@X1]+[@Y2]*" & constant

这样VBA会先把用户输入的常量值（比如输入3）替换进去，最终生成的Excel公式会是=[@X1]+[@Y2]*3，Excel就能正常计算了。

代码优化建议（可选） #

你的代码里大量使用Select和ActiveCell，这是VBA里低效且易出错的写法。可以直接给目标单元格赋值，简化代码逻辑：

Sub Macro_test()
    Dim constant As Double
    constant = InputBox("Insert constant 'a'")
    
    ' 直接设置表头与公式，无需选中单元格
    Range("D1").Value = "X1"
    Range("D2").FormulaR1C1 = "=[@X]*SIN([@Y])" ' 修正SIN函数写法，参数需要加括号
    Range("E1").Value = "Y2"
    Range("E2").FormulaR1C1 = "=[@X]*[@Y]*[@X1]"
    Range("F1").Value = "Z2"
    Range("F2").FormulaR1C1 = "=[@X1]+[@Y2]*" & constant
End Sub

另外提一句：你原来写的"=[@X]*SIN[@Y]"是错误的，SIN函数必须把参数放在括号里，改成"=[@X]*SIN([@Y])"才能正常运行。

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