总和列 - VBA

Question

我正在尝试将两行中的每一行相加，并在第三列中重现答案。然后我需要将列中的下一行加到最后一行。

EG。 A1 + B1，A2 + B2，A3 + B3等

到目前为止，我有以下

Sub Columns()
ActiveCell.Range("A1").Select
POS1 = Range("A3").Value
POS2 = Range("N3").Value
ActiveCell.Range("AA3").Select
While POS1 And POS2 <> ""
RES = POS1 + POS2
ActiveCell.Value = RES
ActiveCell.Offset(1,0).Select
Wend
End Sub

到目前为止，我可以完成第一行的总和，打印它，然后偏移应答单元格。我不能为我的生活弄清楚如何抵消这两个变量。有人可以帮忙吗？

另外，如果我没有在工作簿中选择单元格A1，则会使用活动单元格作为参考点来考虑所有计算，这会使所有内容混乱。

提前致谢！

Answer 1

看起来你想要这样的东西，这样可以避免逐个单元循环，这会相对较慢：

Sub Columns()
    Range("AA3:AA" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=A3+N3"
End Sub