用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