总和列 – VBA

我试图把每一行分成两列，并在第三列中重现答案。 然后我需要总结列中的下一行直到最后一行。

例如。 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 

到目前为止，我可以做第一行的总和，打印它，然后抵消答案单元。 我不能为我的生活弄清楚如何抵消这两个variables。 任何人都可以帮忙吗？

在附注中，如果我不在工作簿中select单元格A1，则将所有计算都视为使用活动单元格作为参考点，这会使所有内容混淆。

提前致谢！

Answer 1

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

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