用VBA计算excel单元格中的公式？

Question

我有一系列相同格式的Excel文件。 每个Excel文件中的数据量不同。 我正在制作一个代码，它将遍历文件夹并对所有excel文件执行计算。

我在VBA中使用以下代码来确定excel文件中的行数：

 i = .Cells(.Rows.Count, 2).End(xlUp).Row

我使用以下公式对一系列单元格执行计算：

With .Range("D2:D" & i)
     .Formula = "=Log(B2)"
End With

如何计算D中下一个可用单元格中“D”列中所有值的总和？ 这就是公式在理论上的表现

j = i + 1
    With .Range("D" & j)
         .Formula = "=Sum(D2:D & i)"
    End With

如何将D单元与总和一起用于将来的计算？ 让我们说我想要E1 "=(D2-$D$ & j)^2"

对于模糊的标题抱歉，我不知道如何描述这个问题。

Answer 1

作为评论的后续，这个工作：

With .Range("D" & j)
     .Formula = "=SUM(D2:D" & i & ")"
End With