Excel(2007)VBA - 带有引号的公式

Question

我昨天尝试将以下代码放入程序中.VBA称错误.我认为这是因为公式中的双引号.我用谷歌搜索,我发现的所有结果都给出了公式的基本内容,但没有一个解释如何绕过里面的引号.

(在此之前有一个With语句,Pivot是一个工作表名称)

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

任何帮助深表感谢.谢谢!

Answer 1

每当有疑问时,如果它允许,记录一个宏:)

试试这个

.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)"