VBA中两段功能相同的VLOOKUP嵌套IF语句为何一段报错一段可运行

报错原因分析 #

语法2触发报错的核心原因有2处：

• 字符串换行不符合VBA语法规则：VBA不允许字符串字面量直接换行，即使是排版需要换行，也必须在每行末尾加续行符_，同时上一行末尾要加字符串连接符&，否则VBA会把未闭合的字符串和下一行内容当成非法VBA语法解析，触发对象定义错误。
• 末尾双引号转义错误：VBA中字符串内的双引号需要用两个连续双引号转义为1个实际的双引号。语法2末尾写了3个连续双引号"""，会让最终生成的公式末尾多出来1个多余的双引号，不符合Excel公式的语法规范，执行赋值操作时就会报错。而语法1通过& _拼接字符串，最终生成的公式引号数量完全符合要求，因此可以正常运行。

修正方案 #

如果要写单行的语法2，直接删掉末尾多余的1个双引号即可，正确写法如下：

activeRange.Value = "=VLOOKUP(IFNA(IFNA(IFNA(IFNA(VLOOKUP(LEFT(RC[-1],6),'List Sheet'!R2C1:R18C2,2,FALSE),VLOOKUP(RIGHT(RC[-1],5),'List Sheet'!R2C1:R18C2,2,FALSE)),VLOOKUP(RIGHT(RC[-1],2),'List Sheet'!R2C1:R18C2,2,FALSE)),IF(OR(LEFT(RC[-1],2)=""EZ"",LEFT(RC[-1],3)=""STO""),""STORE - ORDER"",NA())),IFNA(VLOOKUP(RIGHT(RC[-1],6),'List Sheet'!R2C1:R18C2,2,FALSE),IFNA(VLOOKUP(LEFT(RC[-1],3),'List Sheet'!R2C1:R18C2,2,FALSE),""CUSTOMER ORDER""))),'List Sheet'!R2C8:R16C9,2,FALSE)"

如果要换行排版，必须在每行末尾加& _：

activeRange.Value = "=VLOOKUP(IFNA(IFNA(IFNA(IFNA(VLOOKUP(LEFT(RC[-1],6),'List Sheet'!R2C1:R18C2,2,FALSE),VLOOKUP(RIGHT(RC[-1],5),'List Sheet'!R2C1:R18C2,2,FALSE)),VLOOKUP(RIGHT(RC[-1],2),'List Sheet'!R2C1:R18C2,2,FALSE)),IF(OR(LEFT(RC[-1],2)=""EZ"",LEFT(RC[-1],3)=""STO""),""STORE - ORDER"",NA())),IFNA(VLOOKUP(RIGHT(RC[-1],6),'List Sheet'!R2C1:R18C2,2,FALSE),IFNA(VLOOKUP(LEFT(RC[-1],3)," & _
"'List Sheet'!R2C1:R18C2,2,FALSE),""CUSTOMER ORDER""))),'List Sheet'!R2C8:R16C9,2,FALSE)"

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