Excel VBA - 使用循环求和2组单元格

时间:2017-04-21 10:56:28

标签: excel vba excel-vba

简单的问题,但我无法让它发挥作用。我只需要将两组单元格相加并将总计粘贴到不同的列中。

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

我知道使用简单的excel函数是多么容易,但我需要用VBA术语,理想情况是循环,而不是代码的记录器版本。

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

enter image description here

1 个答案:

答案 0 :(得分:2)

试试这个:

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提示