在VBA中的公式中插入双引号字符串（Excel

Question

我想使用VBA插入一个看起来像这样的函数：

=IF(ISERROR(VLOOKUP(B12,AASD!A:B,2,0)),"Check #",VLOOKUP(B12,AASD!A: B，2,0））

VBA代码：

Sheets("Sheet1").Range("C12").Formula = "=IF(ISERROR(VLOOKUP(B12,AASD!A:B,2,0)),"Check AA#",VLOOKUP(B12,AASD!A:B,2,0))"

问题是＆＃34;＆＃34;在IF公式中插入字符串的引号会混淆＆＃34;＆＃34; VBA中的引用。

这是否有巧妙的解决方法？

Answer 1

将它们加倍

Sheets("Sheet1").Range("C12").Formula = "=IF(ISERROR(VLOOKUP(B12,AASD!A:B,2,0)),""Check AA#"",VLOOKUP(B12,AASD!A:B,2,0))"

您也可以使用Chr（34）代替一组引号。

Answer 2

此外，使用IFERROR可以将该公式减半。

Sheets("Sheet1").Range("C12").Formula = _
   "=IFERROR(VLOOKUP(B12, AASD!A:B, 2, 0), ""Check AA#"")"