Excel VBA循环来总结两个连续的单元格

我是在Excel中使用VBA新手，并尝试创build一个循环来总结两个连续的数字，并将其输出到合并的单元格到一边卡住了。 数据如下所示：

Number - Sum 1 - 8 7 - 1 - 2 1 - 

所以我想通过第1列中的数字循环，并加起来的前两个数字（1和7将是单元格A1和A2），并将该值返回到合并单元格的右边，这将是B1。

下面是我到目前为止正确计算单元格A1和A2，并将8的值放入单元格B1，但根本没有工作。 我已经有了一个循环来计算2个单独的行之前的值，但不能在这种情况下我怎么能做到这一点。

 Sub Loop_Sum() Set rng = Range("A1:A6") For Each cell In rng Cells(cell, 2) = Cells(cell, 1) + Cells(2, cell) Next cell End Sub 

欣赏任何帮助/指针。

谢谢。

Answer 1

您需要更改为递增的For .. Next并将递增步骤前进2。

 Sub Loop_Sum() dim i as long, rng as range Set rng = Range("A1:A6") For i= 1 to rng.cells.count step 2 rng(i).offset(0, 1) = rng(i) + rng(i + 1) Next cell End Sub 

Answer 2

你想使用偏移function：

 Sub Loop_Sum() Set rng = Range("A1:A6") For Each cell In rng If cell.Row Mod 2 = 0 Then 'Change 0 to 1 if it ends up on the worng row. cell.Offset(, 2) = cell + cell.Offset(1) End If Next cell End Sub 

如果你想要一个公式，然后把它放在C2中：

 =If(mod(row(),2)=0,A2+A3,"") 

并抄下来。