假设您的输入位于电子表格的第1列和第2列，从第2行开始，您可以实现如下目的（即使Excel公式更合理）：

Sub numSum()
Dim count As Integer: count = 0
Cells(1,3) = "numSum"
Do While Cells(1,count + 2) <> ""
    Cells(3,count+2) = Cells(1,count+2) + Cells(2,count+2)
    count = count + 1
Loop
End Sub

...这是解决问题的“纯”VBA方法，即电子表格中只有硬编码数据，而不向单元格添加任何公式。

正如vba4all所说，您可以使用公式轻松完成此操作，但要使用VBA完成此操作，您可以尝试：

Sub test()
LastRow = ActiveSheet.UsedRange.Rows.Count
Range("C1").Formula = "=A1+B1"
Range("C1").AutoFill Destination:=Range("C1:C" & LastRow)
End Sub

如果你想加起来，让我们假设列“A”和“B”到列“D”：
ThisWorkbook.Sheets(“YourSheet”).Columns(“D”).FormulaArray = “=C[-3]+C[-2]”
此语法的工作原理：

• 选择结果列（此处：栏D）
• 引用要相加的列时，不要按其名称，而要按其来自结果列的位置。C[-2]表示左侧第二列，C[5]表示右侧第五列，依此类推。“C[-2]”中的“C”表示“列”。
• 您可以根据需要添加任意多个列

行的语法相同：
ThisWorkbook.Sheets(“YourSheet”).Rows(“4”).FormulaArray = “=R[-3]+R[-2]”
对于块：
ThisWorkbook.Sheets(“YourSheet”).Range(“C1:C3”).FormulaArray = “=RC[-2]:R[3]C[-2]+RC[-1]:R[3]C[-1]”
对于C1：C3 = A1：A3 + B1：B3。
“同一行，向右两列”被称为RC[2]，而不是R[0]C[2]。
祝你好运：）