Excel VBA-带循环的两组单元格之和

这个问题很简单，但我无法让它工作。我只需要将两组单元格相加，然后将总计粘贴到另一列中

例如，我需要在G14中添加时间值G4和时间值，并在B25中粘贴总和。这应该循环到G10+G20并粘贴到B31中

我知道使用一个简单的excel函数是多么容易，但我需要VBA术语，最好是循环，而不是代码的记录器版本

Range("B25") = "=SUM(" & Range(G4, G14) & ")"

试试这个：

Sub AddValues()

    Dim i As Integer
    Dim j As Integer
    Dim k As Integer

    j = 4
    k = 14

    For i = 25 To 31
        Range("B" & i) = "=SUM(G" & j & ",G" & k & ")"
        j = j + 1
        k = k + 1
    Next i

End Sub

编辑：谢谢@Steve的提示

试试这个：

Sub AddValues()

    Dim i As Integer
    Dim j As Integer
    Dim k As Integer

    j = 4
    k = 14

    For i = 25 To 31
        Range("B" & i) = "=SUM(G" & j & ",G" & k & ")"
        j = j + 1
        k = k + 1
    Next i

End Sub

---

编辑：感谢@Steve的提示

在发布数据截图时，始终包括行和列的字母。

Range（“B25”）=“=SUM（&Range（“G4”、“G14”）。address&”

是的，很抱歉@Nathan_Sav，然后循环？我需要将G4到G10添加到G14到G20，并分别粘贴到B25到B31。在发布数据的屏幕截图时，始终包括行和列字母。

Range（“B25”）=“=SUM（&Range（“G4”，“G14”）。address&”

Yes，很抱歉@Nathan_Sav，然后循环？我需要添加G4到G10，到G14到G20，分别粘贴到B25到B31。谢谢David。然而，这并没有完全奏效。正确添加G4和G14并粘贴在B25中。但随后它将（（G5+G15）+B25）粘贴到B26中。当然应该是G5+G15到B26。在工作表中，公式

=SUM（G4，G14）

与

=G4+G14

相同，但这里的代码相当于

=SUM（G4:G14）

。我想您可能希望代码中的相关行是：

Range（“B”&I）=“=SUM（G”&j&“，G”&k&“）”

对不起，引号很混乱，所以我不得不编辑几次！谢谢你，大卫。然而，这并没有完全奏效。正确添加G4和G14并粘贴在B25中。但随后它将（（G5+G15）+B25）粘贴到B26中。当然应该是G5+G15到B26。在工作表中，公式

=SUM（G4，G14）

与

=G4+G14

相同，但这里的代码相当于

=SUM（G4:G14）

。我想您可能希望代码中的相关行是：

Range（“B”&I）=“=SUM（G”&j&“，G”&k&“）”

对不起，引号很混乱，所以我不得不编辑几次！