VBA设置单元格公式报错求助：含#掩码的公式写法问题

错误根源 #

你的代码报错并非####-#掩码的问题，而是公式本身存在3处语法错误：

1. IF函数的非空判断不完整：Launch!C7<> 缺少对比的空字符串，需补充为Launch!C7<>""
2. RIGHT函数引用错误：RIGHT(Launch!,...) 漏写了具体单元格标识（如C7），应改为RIGHT(Launch!C7,...)
3. 语法冗余错误：RIGHT(Launch!C15<> 多了<>符号，需直接删除

修正后的代码 #

Worksheets("LTXN Report").Range("A2").Formula = "=""####-#""&IF(Launch!C7<>"",RIGHT(Launch!C7,LEN(Launch!C7)-5),IF(Launch!C15<>"",RIGHT(Launch!C15,LEN(Launch!C15)-5),IF(Launch!C23<>"",RIGHT(Launch!C23,LEN(Launch!C23)-5),"""")))"

简化优化（可选） #

如果你的Excel版本支持（2019及以上），可以用TEXTJOIN简化嵌套逻辑，让代码更易读：

Worksheets("LTXN Report").Range("A2").Formula = "=""####-#""&IFERROR(RIGHT(TEXTJOIN("""",TRUE,Launch!C7,Launch!C15,Launch!C23),LEN(TEXTJOIN("""",TRUE,Launch!C7,Launch!C15,Launch!C23))-5),"""")"

这段代码会自动取C7、C15、C23中第一个非空单元格的内容进行截取，逻辑和原需求一致，但结构更简洁。

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