Excel VBA循环对两个连续单元格求和

Question

我是在 Excel 中使用 VBA 的新手，在尝试创建一个循环以将两个连续数字相加并将其输出到侧面的合并单元格时遇到了困难。数据如下：

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

所以我想循环遍历第 1 列中的数字并将前 2 个数字（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 .. 接下来将递增步进 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

你想使用偏移功能：

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,"")

然后抄下来。