尝试使用 vba 进行数学运算，但需要保持单元格当前的公式

Question

我正在尝试创建代码并了解如何保持单元格当前公式的完整性。 我希望能够创建一个新公式，如果一个单元格有一个公式，例如 (=E4+E5)，如果我再次将它与另一个单元格（例如 E5）相加，它会给出 output = E4+E5+E5。 我当前的代码给了我 output E4+E512 我真的不明白为什么。 我目前正在替换使用 cell.formula 时附带的“=”符号，以便我的 output 不是 =E4+=E5+E5

当前代码：

Public Sub blokkie_toets()
Dim cell_for As Range
Dim cell_new As Range

Set cell_for = Range("E7")
Set cell_new = Range("E4")

If Left(cell_for.Formula, 1) = "=" Then
      ActiveCell = Replace(cell_for.Formula, "=", "") + cell_new.Formula
End If



End Sub

Answer 1

如果要添加对 E4 的引用，则需要使用Address()

Dim cell_for As Range
Dim cell_new As Range

Set cell_for = Range("E7")
Set cell_new = Range("E4")

cell_for.Formula = cell_for.Formula & "+" & cell_new.Address(False, False)