VBA写入Excel的公式未被识别、提示单元格包含常量如何解决？

问题核心：该现象本质是写入的公式被Excel当作文本字符串存储，未被识别为可计算公式，和你设置的自动计算规则无关。你观察到的需要把'=替换为=才能生效的特征，已经指向核心诱因是目标单元格预先被设置为文本格式，文本格式下输入的等号开头内容会被Excel自动加前导单引号转义为普通文本。

具体解决步骤 #

• 第一步：写入公式前先重置目标区域的数字格式为常规，从根源避免文本格式转义公式
  在你原有代码的Set Rng = Range("A12:A1521")行之后新增一行即可：

  Rng.NumberFormat = "General"
  

• 第二步：如果修改格式后仍有前导单引号残留，可直接在代码中增加批量替换逻辑，省去手动操作步骤，在循环结束后添加：

  Rng.Replace What:="'=", Replacement:="=", LookAt:=xlPart
  

• 性能优化建议：你当前用循环逐个给单元格写公式的方式效率偏低，1500多行的区域完全可以省略循环批量写入，Excel会自动调整相对引用的行号：

  ' 可以直接替换原有从ref赋值到循环结束的全部代码
  Set Rng = Range("A12:A1521")
  Rng.NumberFormat = "General"
  Rng.Formula = "='Weekly Results'!E9"
  

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