如何在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应用程序 窗口正在打开，请将下面的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。 按 其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。

从现在开始，每次更改单元格C2中的值时，以前的更改值将记录在D2和D2以下的单元格中。