请求Excel宏代码：新数据进入指定列时迁移旧数据至目标列

核心实现思路 #

利用Excel工作表的Worksheet_Change事件监听目标列（比如B列）的单元格变化，当有新数据录入时，自动把单元格原有值迁移到对应行的历史列（比如C列）。同时处理了事件循环、空值判断等边界问题，保证宏稳定运行。

完整宏代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 配置目标列和历史列：数字对应列序号（B=2，C=3，以此类推）
    Const TARGET_COLUMN As Integer = 2
    Const HISTORY_COLUMN As Integer = 3
    
    ' 关闭事件触发，避免循环执行
    Application.EnableEvents = False
    On Error GoTo Cleanup ' 确保出错时也能恢复事件
    
    ' 仅处理目标列内的单元格变化
    If Not Intersect(Target, Me.Columns(TARGET_COLUMN)) Is Nothing Then
        Dim changedCell As Range
        ' 支持批量修改场景（比如粘贴多单元格内容）
        For Each changedCell In Intersect(Target, Me.Columns(TARGET_COLUMN))
            ' 仅当原有值非空、且新旧值不同时执行迁移
            If changedCell.Value <> changedCell.Value2 And changedCell.Value2 <> "" Then
                ' 覆盖历史列原有内容（需要叠加历史看下方注释）
                Me.Cells(changedCell.Row, HISTORY_COLUMN).Value = changedCell.Value2
                
                ' 【可选】若需保留多段历史记录（逗号分隔），替换上面一行为：
                ' If Me.Cells(changedCell.Row, HISTORY_COLUMN).Value <> "" Then
                '     Me.Cells(changedCell.Row, HISTORY_COLUMN).Value = Me.Cells(changedCell.Row, HISTORY_COLUMN).Value & ", " & changedCell.Value2
                ' Else
                '     Me.Cells(changedCell.Row, HISTORY_COLUMN).Value = changedCell.Value2
                ' End If
            End If
        Next changedCell
    End If

Cleanup:
    ' 恢复事件触发
    Application.EnableEvents = True
    ' 清除错误状态
    If Err.Number <> 0 Then Err.Clear
End Sub

代码关键点说明 #

• Worksheet_Change事件：当前工作表单元格内容被修改时自动触发
• 关闭Application.EnableEvents：防止宏修改历史列时再次触发Change事件，造成无限循环
• 列配置：通过TARGET_COLUMN和HISTORY_COLUMN常量可快速切换目标列和历史列，无需修改多处代码
• 边界判断：仅在原有值非空、新旧内容不同时执行迁移，避免空值或重复值的无效操作
• 批量修改支持：遍历所有变化的单元格，兼容一次性修改多个单元格的场景

使用步骤 #

1. 打开资产清单Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧项目窗口找到对应工作表（比如资产清单所在的Sheet1），双击进入代码编辑界面
3. 在右侧窗口粘贴上述宏代码
4. 保存文件为启用宏的格式（选择.xlsm或.xls，不要用普通.xlsx）

扩展说明 #

如果你的现有宏是从其他工作表获取当前用户数据，只要该宏修改B列内容时，Worksheet_Change事件会正常触发——不管是手动输入还是宏写入B列数据，都会自动执行原有值的迁移逻辑。

内容的提问来源于stack exchange，提问作者Preethy Paul