Option Explicit' 工作簿级变量：保存所有工作表修改前的值Private oldValue As String' ==============================' 选中任意单元格时记录旧值' ==============================Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)    ' 只处理单个单元格    If Target.Cells.CountLarge > 1 Then Exit Sub    On Error Resume Next    oldValue = CStr(Target.Value)    If Err.Number <> 0 Then oldValue = "无法读取"    On Error GoTo 0End Sub' ==============================' 任意工作表单元格修改时记录痕迹' ==============================Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)    ' 只处理单个单元格    If Target.Cells.CountLarge > 1 Then Exit Sub    Dim newValue As String    newValue = CStr(Target.Value)    ' 内容未变化则不记录    If newValue = oldValue Then Exit Sub    ' 关闭事件防止重复触发    Application.EnableEvents = False    Dim cmt As Comment    Set cmt = Target.Comment    ' 无批注则新建    If cmt Is Nothing Then        Set cmt = Target.AddComment    End If    ' 构造修改痕迹日志    Dim logText As String    logText = _        IIf(cmt.Text <> "", cmt.Text & vbCrLf, "") & _        Format(Now, "yyyy-mm-dd hh:mm:ss") & " " & _        "原内容：" & oldValue & "；" & _        "修改为：" & newValue    ' 写入批注    cmt.Text Text:=logText    ' 自动调整批注大小    cmt.Shape.TextFrame.AutoSize = True    ' 恢复事件    Application.EnableEvents = TrueEnd Sub