咨询：Excel中追踪指定单元格数据变更并记录至其他工作表的方法

嘿，我完全懂你要做的事儿——追踪特定绩效单元格的变更，自动把记录存到另一张表，还能给图表自动喂数据对吧？我给你整了一套适配需求的VBA方案，直接用就行：

1. 插入监控变更的VBA代码 #

首先打开你的Excel文件，按Alt + F11调出VBA编辑器，找到你要监控的那个工作表（比如叫「绩效数据」，记得换成你实际的表名），双击它，然后粘贴下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义需要监控的核心单元格区域
    Dim monitorRanges As Range
    Set monitorRanges = Union(Me.Range("D16:P16"), Me.Range("D33:P33"), Me.Range("D52:P52"))
    
    ' 检查变更的单元格是否在我们要监控的范围内
    If Not Intersect(Target, monitorRanges) Is Nothing Then
        Dim logSheet As Worksheet
        ' 指定用来存变更记录的工作表，提前建好，比如叫「变更记录」
        Set logSheet = ThisWorkbook.Worksheets("变更记录")
        
        Dim lastRow As Long
        ' 找到记录工作表的最后一行，准备追加新记录
        lastRow = logSheet.Cells(logSheet.Rows.Count, "A").End(xlUp).Row + 1
        
        ' 记录关键信息：变更时间、单元格位置、新值、对应绩效组
        logSheet.Cells(lastRow, "A").Value = Now() ' 精确到时分秒的变更时间
        logSheet.Cells(lastRow, "B").Value = Target.Address ' 变更的单元格地址
        logSheet.Cells(lastRow, "C").Value = Target.Value ' 变更后的新值
        logSheet.Cells(lastRow, "E").Value = oldValue ' 变更前的旧值（需要配合下面的SelectionChange事件）
        
        ' 给不同行的绩效数据加个标识，方便后续图表分组
        Select Case Target.Row
            Case 16
                logSheet.Cells(lastRow, "D").Value = "绩效组1" ' 换成你实际的组名
            Case 33
                logSheet.Cells(lastRow, "D").Value = "绩效组2"
            Case 52
                logSheet.Cells(lastRow, "D").Value = "绩效组3"
        End Select
    End If
End Sub

' 提前保存选中单元格的旧值，这样变更时能记录前后对比
Dim oldValue As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim monitorRanges As Range
    Set monitorRanges = Union(Me.Range("D16:P16"), Me.Range("D33:P33"), Me.Range("D52:P52"))
    If Not Intersect(Target, monitorRanges) Is Nothing Then
        oldValue = Target.Value
    End If
End Sub

2. 给记录工作表设置表头 #

打开你新建的「变更记录」工作表，在第一行输入这些表头，让记录更清晰：

• A列：变更时间
• B列：单元格地址
• C列：新值
• D列：绩效组名称
• E列：旧值

3. 让图表自动更新 #

等有几条变更记录后，你可以给「变更记录」的数据做个动态数据源，这样图表会自动跟着新记录更新：

1. 按Ctrl + F3打开名称管理器，点击「新建」
2. 名称输入动态变更数据，引用位置输入公式：

=OFFSET(变更记录!$A$1,0,0,COUNTA(变更记录!$A:$A),COUNTA(变更记录!$1:$1))

3. 插入图表时，选择这个动态变更数据作为数据源，之后每次有新记录，图表会自动刷新。

几个关键注意点 #

• 保存文件时要选.xlsm格式（启用宏的工作簿），不然代码会失效；打开文件时记得允许宏运行
• 如果批量修改多个监控单元格，代码会逐个记录每个单元格的变更，不会遗漏
• 要是以后要加新的监控区域，直接在Union里追加对应的单元格范围就行

这样应该就能完美搞定你的需求了，有啥细节调整随时说！

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