如何在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。 按 其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口。

從現在開始，每次更改單元格C2中的值時，以前的更改值將記錄在D2和D2以下的單元格中。