VBA赋值公式时触发Application-defined or object-defined error问题咨询

咱们来一步步排查你遇到的问题，核心原因其实是公式属性的语法要求和你使用的分隔符不匹配，另外也可以快速确认一个小细节：

1. Formula属性只认英文语法的分隔符 #

你的代码里用Application.International(xlListSeparator)获取了系统本地的列表分隔符（比如德语环境下是分号，中文环境一般是逗号），但Range.Formula属性有个关键要求：它只接受英文Excel语法的公式，也就是必须用英文逗号,作为参数分隔符，不管你的系统区域设置是什么。

如果你的本地分隔符不是逗号，把它拼接到Formula里就会导致公式语法非法，直接触发你看到的那个错误。

两种修复方案任你选： #

• 方案一：直接用英文逗号，跳过本地分隔符（推荐，因为Formula属性天生适配英文语法）：

  Worksheets("Sheet1").Range("A1").Formula = "=RANK(AA12,AA12:AA23)"
  

• 方案二：改用FormulaLocal属性，它专门支持本地语言的公式规则，包括本地分隔符：

  Worksheets("Sheet1").Range("A1").FormulaLocal = "=RANK(AA12" & CStr(Application.International(xlListSeparator)) & "AA12:AA23)"
  

2. 额外小检查：确保目标范围属于Sheet1 #

虽然你已经确认Sheet1存在，可以再快速确认下AA12:AA23这个单元格范围确实是在Sheet1里（默认情况下是，但如果代码上下文有切换工作表的操作，可能会出问题）。不过这个概率很低，主要问题还是出在公式属性的语法匹配上。

试试上面的修复方法，应该就能解决这个报错了。

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