Excel VBA写入公式失效：仅显示值而非公式的解决方法咨询

我在做数据映射操作时，用VBA代码试图给wsTarget.Cells(lastRowTarget + 1, 5)单元格写入公式=+Financials!B1，但实际单元格只显示该公式对应的计算值，而非保留公式本身。我试过复制粘贴列、改用.Formula属性等方法都没解决问题。由于Financials!B1的值在映射后会变化，必须让单元格保留公式而非固定值，请问该怎么解决？

相关代码片段：

wsTarget.Cells(lastRowTarget + 1, 2).value = "project_type"
wsTarget.Cells(lastRowTarget + 1, 4).value = "year_in_files"
wsTarget.Cells(lastRowTarget + 1, 5).value = "=+Financials!B1"
wsTarget.Cells(lastRowTarget + 1, 7).value = companyName
wsTarget.Cells(lastRowTarget + 1, 8).value = projectName

解决方案 #

直接使用.Formula属性替换.Value属性来写入公式，这是VBA中给单元格设置公式的标准方式。修改后的代码如下：

wsTarget.Cells(lastRowTarget + 1, 2).Value = "project_type"
wsTarget.Cells(lastRowTarget + 1, 4).Value = "year_in_files"
' 使用.Formula写入公式，而非.Value
wsTarget.Cells(lastRowTarget + 1, 5).Formula = "=+Financials!B1"
wsTarget.Cells(lastRowTarget + 1, 7).Value = companyName
wsTarget.Cells(lastRowTarget + 1, 8).Value = projectName

如果之前试过.Formula仍无效，请排查以下几点：

• 确认Financials工作表名称完全正确（注意大小写、空格，若名称含特殊字符需用单引号包裹，比如'Financials Data'!B1）
• 检查目标工作表是否处于保护状态，保护状态下可能无法修改公式
• 确认Excel计算模式为自动（手动计算模式不会导致公式不显示，但会阻止公式更新）
• 检查单元格格式是否为文本：若单元格格式是文本，公式会被当作纯文本显示，需先设置为常规格式再写入公式

内容的提问来源于stack exchange，提问作者Muhammad Uzair Aziz