咨询：VBA写入AC列的公式显示为文本的解决方法

核心原因 #

ClearFormats方法只会清除单元格的视觉格式（比如字体、边框、填充色），但不会修改单元格的数字格式。如果AC列之前被设置为文本格式，即使执行了ClearFormats，数字格式仍会保持为文本，导致写入的公式被当作纯文本显示，不会被计算。

解决方案 #

修改代码，先将AC列的数字格式设置为常规，再写入公式：

Dim row As Long
row = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).row

With Sheets("Data")
    .Range("AC:AC").ClearFormats
    .Range("AC:AC").NumberFormat = "General" ' 强制设置为常规数字格式
    .Range("AC2:AC" & row).Formula = "=IF(LEN(AB2) > 0, AB2, W2)"
    .Calculate ' 触发强制计算，确保公式生效
End With

额外排查方案 #

如果上述方法无效，试试以下操作：

• 选中AC列，点击单元格左上角的绿色三角（如果有），选择「转换为公式」
• 用文本分列功能强制转换格式，在VBA中添加：

  .Range("AC2:AC" & row).TextToColumns _
      DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      FieldInfo:=Array(1, xlGeneralFormat)
  

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