Excel 使用VBA在两列之间添加

我想知道如何通过VBA添加第1列和第2列，例如当有人单击按钮时。然后，将总和填充回第1列…并自动继续10个R0W。 这是我的代码

---

---

您的代码只需将

范围（B1:B10）

中的所有值与

范围（“A1:A10”

无需循环两次。您可以改为使用以下代码：

Sub Button1_Click()
Dim A As Range

For Each A In Range("A1:A10")
    A.Value = A.Value + Range("B" & A.Row).Value
Next A

End Sub

---

它将采用

范围（“A1:A10”）的每个单元格

并将其与B列中相邻单元格的值相加。希望这对您有所帮助。

谢谢您的回答。.但Application.WorksheetFunction.sum的功能是什么？我了解您在哪里询问如何求和，但我仍然得到第一列中的值与第二列中的值相加…在您的问题中，您说我想知道我如何才能做到通过VBA将第一列和第二列相加，这就是你所拥有的。你到底想要什么。你需要更好地解释我在提问时的错误。实际上，我想要逐行相加第一列和第二列。这意味着第1列中的第一行和第2列中的第一行相加，然后答案显示在第1列的第一行中…然后继续到第10行…tq

Sub Button1_Click()
Dim A As Range

For Each A In Range("A1:A10")
    A.Value = A.Value + Range("B" & A.Row).Value
Next A

End Sub