excel - VBA 对同一行中的单元格使用求和公式。行号将随着每个循环而改变

Question

我正在使用 VBA 使用循环从网站中提取数字。我将这些数字导入 F 列和 G 列。我试图在我的 VBA 中包含一行，这将允许我使用求和公式来添加这两个单元格并将结果发布到 E 列中。
这些数字将始终位于同一行，但位于 F 和 G 列。

我可以这样使用(ActiveCell.Row)函数吗？
或者应该在循环结束时使用 If 函数。

Range("E" & (ActiveCell.Row)).Formula = "=SUM("Range("F" & (ActiveCell.Row)) & Range("G" & (ActiveCell.Row))")"

Answer 1

I have these numbers imported into column F and G.

如果您想在 Col E 中插入公式，请使用它。这将一次性在 Col E 的所有相关单元格中输入公式。

看这个例子

Sub Sample()
    Dim lRow As Long
    Dim ws As Worksheet

    '~~> Change this to the releavnt sheet name
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        '~~> Find Last row in col E which has data
        lRow = .Range("E" & .Rows.Count).End(xlUp).Row

        '~~> This will put the formula from E1 to E last row
        .Range("E1:E" & lRow).Formula = "=SUM(F1+G1)"
    End With
End Sub