Excel技术咨询：在A列输入新内容时如何让原A单元格内容自动转至B列？

要实现这个需求，Excel的普通公式没法完成自动“转移”原有内容的操作，得用到VBA工作表事件来触发自动逻辑，具体步骤如下：

步骤1：打开VBA代码编辑器 #

右键点击你要设置的工作表标签（比如Sheet1），选择「查看代码」，这会弹出VBA编辑器窗口。

步骤2：粘贴事件代码 #

在编辑器的代码窗口里，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只处理A列的单个单元格修改，排除批量编辑的情况
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        ' 先关闭事件触发，避免循环调用
        Application.EnableEvents = False
        
        ' 获取A单元格修改前的旧值
        Dim oldValue As Variant
        oldValue = Target.Value
        
        ' 如果旧值不是空（避免第一次输入的情况），将旧值同步到对应B单元格
        ' 要是你想让B直接替换成旧值，就把下面的"+"改成"="；要是想累加旧值到B，就保留"+"
        If Not IsEmpty(oldValue) Then
            Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + oldValue
        End If
        
        ' 恢复事件触发，不影响后续操作
        Application.EnableEvents = True
    End If
End Sub

步骤3：设置C列的求和公式 #

在C1单元格输入公式=A1+B1，然后下拉填充到你需要的行，这样C列就会自动计算A和B的实时总和。

逻辑说明 #

这段代码会在A列单个单元格内容改变时自动运行：

1. 先关闭事件触发，防止修改B单元格时再次触发Change事件，造成循环卡死；
2. 抓取A单元格修改前的旧值，把它加到（或替换）对应行的B单元格；
3. 最后恢复事件触发，不影响后续的正常编辑。

注意事项 #

• 保存文件时要选「Excel启用宏的工作簿（.xlsm）」格式，不然宏会失效；
• 第一次在A列输入内容时，因为旧值是空，B单元格不会变化，C列就是A的新值，完全符合你初始的求和逻辑。

内容的提问来源于stack exchange，提问作者Just Me