VBA使用ActiveCell.Formula写IF公式报Expected: end of statement编译错误

错误原因 #

• 编译错误：VBA语法要求字符串内部的双引号必须用两个连续双引号转义，你直接在公式字符串里写""、"Nominal"的单个双引号会被VBA识别为字符串终止符，触发语句未结束的编译错误。
• 运行时错误：转义后仍然报错大概率是原公式嵌套IF逻辑冗余，边界判断遗漏，导致公式写入单元格后计算逻辑异常，触发运行时错误。

修复后可直接运行的代码 #

' 优化后使用AND做区间判断，逻辑更清晰不易出错
ActiveCell.Formula = "=IF(W2=0,"""",IF(AND(W2>-2.5,W2<2.5),""Nominal"",""REMOVE""))"

代码说明 #

• 转义规则：VBA字符串中""""最终会在单元格公式中生成""（代表空值），""Nominal""最终会在单元格公式中生成"Nominal"，符合Excel公式的语法要求
• 逻辑优化：用AND函数同时判断上下限，替代原嵌套两层IF的写法，避免逻辑优先级错误，完全匹配你的需求：
  1. 优先判断W2等于0时返回空
  2. 其次判断W2处于-2.5到2.5开区间时返回Nominal
  3. 其余所有情况返回REMOVE

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