预计在报价单结束时的报价结束

Sub FillNames() Range("D2:D56").SpecialCells(xlCellTypeBlanks).Formula = _ "=IF(AND(C>800,C<900), "YES", "NO")" End Sub 

我得到预期的编译错误：语句结束。 似乎有问题与单词YES和NO的引号。

如果我删除YES和NO周围的引号并运行macros，它将运行并将公式引号中的内容打印到单元格中。 我不明白如何引号引起语法错误。

我正在运行Excel 2011 for Mac，不知道这是否与它有关。

Answer 1

string中的双引号需要通过加倍来逃脱：

 Range("D2:D56").SpecialCells(xlCellTypeBlanks).Formula = _ "=IF(AND(C>800,C<900), ""YES"", ""NO"")"