如何在 Excel 中記住或儲存儲存格變更前的原始值？

作者Siluvia修改日期2025-10-10

當您在 Excel 中編輯儲存格時，原有內容會立即被覆寫且無法直接看見，除非執行復原操作。若您需要保留舊值以進行比對、稽核或還原，可選擇以下兩種方式：一是透過簡短的 VBA 程式，在每次變更前自動將先前值記錄至輔助欄位；二是當檔案儲存在 OneDrive 或 SharePoint 時，善用 Microsoft 365 內建的「顯示變更」與「版本歷程記錄」功能，輕鬆追蹤所有修改紀錄。本教學將詳細說明這兩種方法，協助您根據自身的工作流程與治理需求，選擇最適合的解決方案。

💡 快速導覽

➤ 在 Excel 中使用 VBA 程式碼儲存儲存格的先前值
➤ Microsoft 365 — 使用「顯示變更」與「版本歷程記錄」檢閱儲存格的先前值與更新值

在 Excel 中使用 VBA 程式碼儲存儲存格的先前值

假設您擁有如下方截圖所示的表格。當您在 C 欄任一儲存格進行編輯時，或許希望將其先前的值自動儲存至對應的 G 欄儲存格，或新增為批註，方便日後快速查閱與審核。此方法特別適用於需要持續記錄變更，或在資料輸入及品質檢查過程中回溯舊值的情境。

顯示用於儲存先前儲存格值之目標欄位的 Excel 表格截圖

關鍵情境：對於經常需要檢視或調整整合變更的工作表（例如庫存、日誌或財務追蹤），讓先前的數值保持可見，不僅能節省時間，更能有效避免意外遺失資料。

請先開啟欲記錄先前值的工作表，然後依照下列步驟操作：

1. 在工作表分頁上按一下滑鼠右鍵，並從快捷選單中選擇「檢視程式碼」，即可開啟 Visual Basic for Applications （VBA）編輯器。請參閱截圖：

顯示 Excel 工作表分頁右鍵選單中「檢視程式碼」選項的截圖

2. 在「Microsoft Visual Basic for Applications」視窗中，將下列 VBA 程式碼貼到程式碼視窗內，即可透過此巨集將目標儲存格的先前值自動儲存至另一欄位。

執行此指令碼前，請務必調整程式碼中的目標欄位參照。範例中「C:C」代表要追蹤變更的欄位，而數字「7」對應至用於儲存先前值的 G 欄；您可根據實際版面配置自由調整這些參照。

VBA 程式碼：將儲存格的先前值儲存至另一欄位的儲存格

Dim xRg As Range
Dim xChangeRg As Range
Dim xDependRg As Range
Dim xDic As New Dictionary
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim I As Long
    Dim xCell As Range
    Dim xDCell As Range
    Dim xHeader As String
    Dim xCommText As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    xHeader = "Previous value :"
    x = xDic.Keys
    For I = 0 To UBound(xDic.Keys)
        Set xCell = Range(xDic.Keys(I))
        Set xDCell = Cells(xCell.Row, 7)
        xDCell.Value = ""
        xDCell.Value = xDic.Items(I)
    Next
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim I, J As Long
    Dim xRgArea As Range
    On Error GoTo Label1
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Set xDependRg = Target.Dependents
    If xDependRg Is Nothing Then GoTo Label1
    If Not xDependRg Is Nothing Then
        Set xDependRg = Intersect(xDependRg, Range("C:C"))
    End If
Label1:
    Set xRg = Intersect(Target, Range("C:C"))
    If (Not xRg Is Nothing) And (Not xDependRg Is Nothing) Then
        Set xChangeRg = Union(xRg, xDependRg)
    ElseIf (xRg Is Nothing) And (Not xDependRg Is Nothing) Then
        Set xChangeRg = xDependRg
    ElseIf (Not xRg Is Nothing) And (xDependRg Is Nothing) Then
        Set xChangeRg = xRg
    Else
        Application.EnableEvents = True
        Exit Sub
    End If
    xDic.RemoveAll
    For I = 1 To xChangeRg.Areas.Count
        Set xRgArea = xChangeRg.Areas(I)
        For J = 1 To xRgArea.Count
            xDic.Add xRgArea(J).Address, xRgArea(J).Formula
        Next
    Next
    Set xChangeRg = Nothing
    Set xRg = Nothing
    Set xDependRg = Nothing
    Application.EnableEvents = True
End Sub

若偏好將先前值儲存為批註（便於快速檢視與註解），下列 VBA 程式碼可在目標欄位儲存格變更時自動完成此操作：

VBA 程式碼：將儲存格的先前值儲存在註解中

Dim xRg As Range
Dim xChangeRg As Range
Dim xDependRg As Range
Dim xDic As New Dictionary
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim I As Long
    Dim xCell As Range
    Dim xHeader As String
    Dim xCommText As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    xHeader = "Previous value :"
    For I = 0 To UBound(xDic.Keys)
        Set xCell = Range(xDic.Keys(I))
        If Not xCell.Comment Is Nothing Then xCell.Comment.Delete
        With xCell
            .AddComment
            .Comment.Visible = False
            .Comment.Text xHeader & vbCrLf & xDic.Items(I)
        End With
    Next
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim I, J As Long
    Dim xRgArea As Range
    On Error GoTo Label1
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Set xDependRg = Target.Dependents
    If xDependRg Is Nothing Then GoTo Label1
    If Not xDependRg Is Nothing Then
        Set xDependRg = Intersect(xDependRg, Range("C:C"))
    End If
Label1:
    Set xRg = Intersect(Target, Range("C:C"))
    If (Not xRg Is Nothing) And (Not xDependRg Is Nothing) Then
        Set xChangeRg = Union(xRg, xDependRg)
    ElseIf (xRg Is Nothing) And (Not xDependRg Is Nothing) Then
        Set xChangeRg = xDependRg
    ElseIf (Not xRg Is Nothing) And (xDependRg Is Nothing) Then
        Set xChangeRg = xRg
    Else
        Application.EnableEvents = True
        Exit Sub
    End If
    xDic.RemoveAll
    For I = 1 To xChangeRg.Areas.Count
        Set xRgArea = xChangeRg.Areas(I)
        For J = 1 To xRgArea.Count
            xDic.Add xRgArea(J).Address, xRgArea(J).Text
        Next
    Next
    Set xChangeRg = Nothing
    Set xRg = Nothing
    Set xDependRg = Nothing
    Application.EnableEvents = True
End Sub

參數說明：

Cells(xCell.Row,7) 中的 Number7 指的是 G 欄。若您希望將先前值儲存在其他欄位，請立即調整此數值！
Range("C:C")用來定義要追蹤哪一欄的變更，可依需求調整，例如改為 “D:D“ 以追蹤 D 欄。

3. 若要啟用指令碼的字典支援功能，請在 VBA 編輯器中點選「工具」>「參考資料……」。當「參考資料 – VBAProject」對話方塊出現時，勾選「Microsoft Scripting Runtime」，然後按一下「確定」，如圖所示：

已選取 Microsoft Scripting Runtime 的參考對話方塊截圖

4. 按下「Alt」+「Q」即可關閉 VBA 編輯器，返回工作表。

自此之後，每當您修改 C 欄的數值，Excel 便會自動將其先前值複製至 G 欄，或新增至儲存格的註解中，讓您輕鬆追蹤與驗證變更，確保歷史資料隨時可供檢閱、稽核或修正錯誤。

將先前儲存格值儲存至其他儲存格的範例輸出：

顯示先前儲存格值已儲存在 Excel 其他欄位中的截圖

將先前儲存格值儲存至註解的範例輸出：

顯示先前儲存格值已儲存為 Excel 註解的截圖

提示與疑難排解：

若 VBA 巨集未如預期運作，請前往「檔案」>「選項」>「信任中心」>「巨集設定」，檢查巨集安全性設定，並將其調整為「啟用所有巨集」。
若數值未出現在預期位置，請確認您的欄位參照是否正確。
若錯誤持續發生，請確認已依照上述說明正確啟用「Microsoft Scripting Runtime」程式庫。

Microsoft 365 — 使用「顯示變更」與「版本歷程記錄」

在 Microsoft 365 中，您無需使用舊版「追蹤變更」功能，即可輕鬆稽核所有編輯內容（包含誰在何時變更了哪些內容，以及變更前後的數值）！立即使用「顯示變更」查看儲存格層級的詳細資訊，並透過「版本歷程記錄」檢視完整的檔案快照，隨時還原至任一版本。

需求條件

活頁簿已儲存至 OneDrive 或 SharePoint。
已使用 Microsoft 365 帳戶登入；自動儲存已設定為開啟。
採用現代格式（.xlsx），未使用舊版共用活頁簿（舊版）。

「顯示變更」（儲存格層級稽核）

1. 開啟儲存在雲端的活頁簿，前往校閱 ▸ 顯示變更以開啟側邊窗格。
2。（選用）可先選取特定工作表或範圍，縮小結果範圍。
3. 瀏覽項目，查看編輯者、時間戳記及舊值 → 新值；點擊任一項目即可跳至對應儲存格。

「版本歷程記錄」（比較與還原）

1. 前往檔案 ▸ 資訊 ▸ 版本歷程記錄。
2. 開啟先前版本進行比較；可複製儲存格內容，或點擊還原，立即回復整個檔案！

「顯示變更」按鈕是灰色無法使用？請先將檔案儲存至 OneDrive 或 SharePoint，並開啟自動儲存功能；接著從相容模式轉換（檔案 ▸ 資訊 ▸ 轉換），同時確認已關閉共用活頁簿（舊版）。若桌面版仍無法使用，立即試用 Excel 網頁版，輕鬆解決問題！
安全性／鎖定：若活頁簿或工作表受到保護、加密，或啟用了 IRM，可能會停用「顯示變更」功能。
本機檔案：純本機檔案無法保留完整歷史記錄；為獲得最佳效果，請透過雲端使用「版本歷程記錄」功能。
需要將數值寫入儲存格嗎？「顯示變更」與「版本歷程記錄」屬於稽核工具；若希望每次編輯時自動將「先前值」寫入輔助欄位，請使用簡短的 Worksheet_ChangeVBA 記錄器。

優點

自動稽核變更人員與時間，並顯示變更前後的數值，無需使用巨集。
儲存在 OneDrive 或 SharePoint 時，支援跨平台使用（Windows、Mac 及網頁版）。

缺點

需搭配雲端儲存與自動儲存功能；部分暫時性編輯的詳細資訊有限。
不會自動將先前的值填入儲存格；若您的業務邏輯有此需求，請使用 VBA。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多