使用VBA在单元格中插入多个双引号

Question

我有以下要插入到单元格中的公式，但它具有多个双引号，而且我似乎无法使其正常工作。 Web上有很多解决方案，但大多数都有1或2套双引号。我在所有双引号上都尝试了双引号，但它给了我一个运行时错误438对象不支持该属性

这是我要插入的公式：

="Closing Costs" & " Current Buffer" & " " &TEXT('Closing Costs'!D32,"$ 0")

这是无效的代码：

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

Answer 1

以下内容应该起作用（全部一行）：

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

它的外观与您的样品相同，但这里的外观可能具有欺骗性。

Answer 2

在这些情况下，使用chr()命令可能会有所帮助。 chr(34)返回一个双引号字符，因此下面的方法可以解决问题。

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

要更长一些，但是我发现使用chr(34)可以更容易地确定报价的位置。

Answer 3

这应该可行：好像您在“当前缓冲区”之前添加了一个额外的报价

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