如何用VBA在Excel单元格中插入含多组双引号的公式？

我来帮你搞定这个问题！你遇到的运行时错误438，核心原因是用错了单元格属性——你现在用的.Value是用来设置单元格的文本/数值内容的，而不是用来写入公式的。正确的做法是使用.Formula（或者针对本地语言的.FormulaLocal）属性来设置单元格公式。

修正后的代码方案1（保留双引号转义写法） #

把.Value替换成.Formula，你的双引号转义逻辑是对的（每个原公式里的双引号换成两个），所以正确代码如下：

ActiveSheet.Range("F18").Formula = "=""Closing Costs"" & "" Current Buffer"" & "" "" & TEXT('Closing Costs'!D32,""$ 0"")"

更易读的方案2（用Chr(34)代替双引号） #

如果觉得一堆双引号看着眼晕，你可以用Chr(34)来代表ASCII码中的双引号字符，这样代码结构更清晰，也不容易写错：

ActiveSheet.Range("F18").Formula = "=" & Chr(34) & "Closing Costs" & Chr(34) & _
    " & " & Chr(34) & " Current Buffer" & Chr(34) & _
    " & " & Chr(34) & " " & Chr(34) & _
    " & TEXT('Closing Costs'!D32," & Chr(34) & "$ 0" & Chr(34) & ")"

这里用_换行是为了让代码更整洁，你也可以写成一行。

为什么之前会报错？ #

当你用.Value赋值时，VBA会把整个字符串当成普通文本处理，而不是解析成公式。而.Formula属性专门用于向单元格写入公式，VBA会自动处理里面的转义双引号，把它们解析成公式里的正常双引号。

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