VBA代码用整数作IF结果正常，用字符串则失败，如何修复？

嘿，这个问题我太熟悉了！核心原因很简单：Excel公式里的字符串必须用双引号包裹，但在VBA代码里，双引号是字符串的边界符号，直接写单个双引号会被VBA解析成字符串的结束/开始，导致生成的Excel公式里没有正确的引号。

你原来的代码生成的Excel公式会是这样的（注意字符串没有引号）：

=IF(COUNTIF('\public\Documents\Amazon Retail\Analysis[US Retail Quick Reference.xlsx]Quick Reference'!$A:$A,$P3)>=1,AmazonRetail,AmazonUS)

Excel看到AmazonRetail会以为是一个单元格名称或者命名区域，找不到就会报错（比如#NAME?）。

修复方法有两种，任选其一即可： #

方法1：用VBA的双引号转义规则（两个双引号代表一个实际的双引号）

直接把你要输出的字符串外面的单引号改成两个双引号，代码如下：

Cells(3, 17) = _
"=IF(COUNTIF('\public\Documents" & _
"\Amazon Retail\Analysis\" & _
"[US Retail Quick Reference.xlsx]" & _
"Quick Reference'!$A:$A,$P3)>=1," & _
"""AmazonRetail""","""AmazonUS"""")"

这样生成的Excel公式里，AmazonRetail和AmazonUS就会被正确的双引号包裹，Excel能识别为字符串。

方法2：用Chr(34)代替双引号（更易读，适合长公式）

Chr(34)是VBA里生成双引号的函数，先定义一个变量存储双引号，再拼接公式，代码更清晰：

Dim strQuote As String
strQuote = Chr(34) ' 存储双引号字符

Cells(3, 17) = _
"=IF(COUNTIF('\public\Documents" & _
"\Amazon Retail\Analysis\" & _
"[US Retail Quick Reference.xlsx]" & _
"Quick Reference'!$A:$A,$P3)>=1," & _
strQuote & "AmazonRetail" & strQuote & "," & strQuote & "AmazonUS" & strQuote & ")"

两种方法最终生成的Excel公式都是正确的：

=IF(COUNTIF('\public\Documents\Amazon Retail\Analysis[US Retail Quick Reference.xlsx]Quick Reference'!$A:$A,$P3)>=1,"AmazonRetail","AmazonUS")

内容的提问来源于stack exchange，提问作者SavageBandit