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

【问题标题】：Inserting double quotes string within formula within VBA (Excel在VBA（Excel）中的公式内插入双引号字符串
【发布时间】：2018-11-18 23:38:34
【问题描述】：

我想使用 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))"

问题是在 IF 公式中插入字符串的 "" 引号会弄乱 VBA 中的 "" 引号。

有什么巧妙的解决办法吗？

【问题讨论】：

标签： vba excel

【解决方案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) 代替单引号。

【讨论】：

【解决方案2】：

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

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

【讨论】：