總和列 - VBA

Question

我試圖總結兩列的每一行，並重現答案在第三列。然後我需要總結列中的下一行直到最後一行。

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