Excel（2007）VBA – 。带有引号的公式

我昨天试图把下面的代码放到一个程序中。 VBA称错误。 我认为这是因为公式内的双引号。 我GOOGLE了，我发现的所有结果只是给公式的基础，但没有解释如何绕过内部报价。

（之前有一个With语句，Pivot是一个工作表名字）

.Range("A2").Formula = "=IF(Pivot!A5="",A1,Pivot!A5)" 

任何帮助深表感谢。 谢谢！

Answer 1

每当有疑问，logging一个macros，如果它允许:)

尝试这个

 .Range("A2").Formula = "=IF(Pivot!A5="""",A1,Pivot!A5)" 

Answer 2

使用Chr(34)代替双引号。

所以在你的情况下：

 .Range("A2").Formula = "=IF(Pivot!A5=" & Chr(34) & Chr(34) & ",A1,Pivot!A5)" 

Answer 3

你可能需要这样做：

 .Range("A2").Formula = "=IF(Pivot!A5="& """" & """" & ",A1,Pivot!A5)"