替换公式时出现运行时错误1004

Question

我正在使用以下代码在VBA中向公式添加内容（出于调试目的，我使用变量currentFormula，而不是直接执行此操作）：

currentFormula = Range("A" & row).Formula
currentFormula = currentFormula & "+" & CStr(difference)
Range("A" & row).Formula = currentFormula

当逐步执行代码时，变量currentFormula在最后一步之前具有正确的值，例如“ = A1 / A2 + 0.5”。 但是，该脚本失败，并出现运行时错误1004。当我将currentFormula手动设置为“ = 10 + 10”之类的脚本时，该脚本起作用。

Answer 1

CStr根据当前系统区域设置格式化数字。
Formula接受英语公式。

以不变的方式将数字转换为字符串的函数是Str 。 请注意，它为您可能要删除的正数添加了一个空格：

currentFormula = currentFormula & "+" & LTrim$(Str$(difference))