如何將一個 Excel 工作簿或工作表中的資料變更歷史記錄保留到另一個工作簿或工作表

Question 1

（我在行動裝置上，所以現在無法提供非常具體的答案。）

我已經為此編寫了程式碼。我的目的是追蹤由多個使用者編輯的關鍵工作表上的所有變更。如果對資料來源有爭議，我可以查看日誌。以下是會派上用場的 VBA 部分。

Worksheet_Change每次更改工作表時都會觸發該事件。

If Not Intersect(Target, Range("A1:G12")) Is Nothing會告訴您更改的儲存格是否在您關心的某個範圍內。

將要記錄的值儲存到陣列中更快，並且它們將日誌表上的某個範圍設定為等於該數組，而不是單獨設定日誌表上的每個儲存格。

試試一下，看看你能走多遠。明天我可以詳細一點。

次日編輯

A1:G12以下是一些程式碼，用於監視包含該程式碼的任何工作表上的範圍。如果r是已變更的行，則程式碼會將所有內容複製Ar:Gr到一個工作表中，該工作表代碼名稱是shtLog。（程式碼名稱是 VBA 中顯示的名稱，而不是您在 Excel 中看到的標籤上的名稱。）這應該會讓您朝著正確的方向前進。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Integer
    Dim c As Integer
    Dim arr(1 To 1, 1 To 12)
    If Not Intersect(Target, Range("A1:G12")) Is Nothing Then
        r = Target.Row
        For c = 1 To 12
            arr(1, c) = Cells(r, c).Value
        Next
        With shtLog
            .Range(.Cells(.UsedRange.Rows.Count + 1, 1), .Cells(.UsedRange.Rows.Count + 1, 12)) = arr
        End With
    End If
End Sub

Answer