Excel VBA On Cell更改条件，用于复制

Question

我在excel中设置了更改日志，如果单元格中的值发生更改

Dim PreviousValue
-------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Value = "" Then
       change = Deleted Value"
   Else
       change = "Changed"
   End If

   If Target.Value <> Previous Value Then
       'Add to change log'
   End If
-------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    PreviousValue = Target.Value
End Sub

这很好用，但仅适用于一个单元格。如果我突出显示多个单元格并删除或将粘贴特殊算法应用于组，或者向下复制，则宏会崩溃。有没有办法控制这个？

我希望避免将我的大文件与另一个文件进行比较，以便在每次用户保存时或每隔几分钟左右查找更改。

谢谢！