【问题标题】：Inserting Multiple Double Quotes In A Cell Using VBA使用 VBA 在单元格中插入多个双引号
【发布时间】：2019-10-23 22:40:21
【问题描述】：

我想将以下公式插入到单元格中，但它有多个双引号，我似乎无法使其工作。网上有很多解决方案，但大多数都有 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"")"

【问题讨论】：

标签： excel vba

【解决方案1】：

以下应该可以工作（都在一行上）：

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

它看起来与您的示例相同 - 但这里看起来可能具有欺骗性。

【讨论】：

【解决方案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) 来确定引用位置有点容易。

【讨论】：