如何在Excel中记录单元格中的值变化？

如何在Excel中记录频繁变化的单元格每次变化的值？例如，C2单元格中的原始值是100。当将数字100更改为200时，原始值100会自动显示在D2单元格中以进行记录。当您将200更改为300时，数字200将插入到D3单元格中；将300更改为400时，300将显示在D4单元格中，以此类推。本文中的方法可以帮助您实现这一目标。

使用VBA代码记录单元格中的值变化

使用VBA代码记录单元格中的值变化

以下VBA代码可以帮助您记录Excel中单元格每次变化的值。请按照以下步骤操作：

1. 在包含要记录值变化的单元格的工作表中，右键单击工作表标签，然后从上下文菜单中选择查看代码。参见截图：

2. 接着会打开Microsoft Visual Basic for Applications窗口，请将以下VBA代码复制到代码窗口中。

VBA代码：记录单元格中的值变化

Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
    Static xCount As Integer
    Application.EnableEvents = False
    If Target.Address = Range("C2").Address Then
        Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
    Else
        If xVal <> Range("C2").Value Then
         Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
        End If
    End If
    Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    xVal = Range("C2").Value
End Sub

注意：在代码中，C2是您要记录所有变化值的单元格。D2是您将填充C2第一个变化值的单元格。

3. 按Alt + Q键关闭Microsoft Visual Basic for Applications窗口。

从现在开始，每当您更改C2单元格中的值时，之前的值将被记录在D2及其下方的单元格中。