Excel VBA – 总结2组循环的单元格

简单的问题，但我不能得到它的工作。 我只需要总结2组单元格并将总计粘贴到不同的列中。

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

我知道一个简单的excel函数是多么容易，但是我需要用VBA来表示，理想的是在循环中，而不是logging器版本的代码。

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

Answer 1

尝试这个：

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