Question

我在excel表中有两列名为numOne和numTwo，如下所示：

numOne  numTwo
1       2
2       3
3       6
4       7

现在我想写一个VBA宏（自动化）来添加这些列并创建第三列numSum 我怎么能做到这一点？输出应如下所示：

 numOne  numTwo  numSum
1       2        3
2       3        5
3       6        9
4       7        11

提前致谢

Answer 1

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

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

Answer 2

假设您的输入位于电子表格的第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

......这是一个纯粹的＆＃34; VBA解决问题的方法，即电子表格中只有硬编码数据，而不向细胞添加任何公式。

在VBA中添加两列

2 个答案: