如何通过VBA实现点击按钮将两列对应行相加回填至第一列（10行）

嘿，我看了你写的VBA代码，发现问题出在嵌套循环的逻辑错误上——你现在的代码会让A列的每个单元格都重复加上B列所有10行的值，这完全不是你想要的「对应行相加」效果哦。

原代码的问题分析 #

你的代码里嵌套了两个For Each循环：

Sub Button1_Click()
 For Each r In Range("B1:B10")
 For Each a In Range("A1:A110")
 a.Value = a.Value + r.Value
 Next a
 Next r
End Sub

这段代码的执行逻辑是：每遍历一个B列的单元格（比如B1），就把A列的110个单元格全部加一遍B1的值；接着遍历B2，再把A列所有单元格加一遍B2的值……最终A1的值会是原A1 + B1+B2+...+B10，这和你要的「A1=原A1+B1，A2=原A2+B2」完全不符，而且还错误地处理了A11到A110的单元格。

正确的实现代码 #

这里给你两种简洁的正确写法，都能实现「点击按钮后，将第1-10行的A列与B列对应行数值相加，结果回填至A列」的需求：

写法一：用行号索引遍历（直观易懂）

Sub Button1_Click()
    Dim i As Integer
    ' 遍历第1到第10行
    For i = 1 To 10
        ' 对应行的A列 = 原A列值 + 对应行的B列值
        Cells(i, 1).Value = Cells(i, 1).Value + Cells(i, 2).Value
    Next i
End Sub

写法二：用Offset定位对应单元格（无需行号）

Sub Button1_Click()
    Dim targetCell As Range
    ' 遍历B1到B10的每个单元格
    For Each targetCell In Range("B1:B10")
        ' 通过Offset往左偏移1列，找到对应行的A列单元格
        targetCell.Offset(0, -1).Value = targetCell.Offset(0, -1).Value + targetCell.Value
    Next targetCell
End Sub

关键逻辑说明 #

这两种写法的核心都是让每一行的A列只和同一行的B列值相加，避免了原代码中重复累加的问题。如果之后需要处理更多行，只需要修改循环的范围（比如把1 To 10改成1 To 20，或者把Range("B1:B10")改成Range("B1:B20")）即可。

内容的提问来源于stack exchange，提问作者Muhd Munzir