Excel单元格变更高亮问题：解决撤销失效与还原后仍高亮难题

问题分析 #

你当前的代码直接在变更事件中设置单元格黄色高亮，存在两个核心问题：

1. 无法撤销：VBA修改单元格格式会清空Excel默认的撤销栈，导致Ctrl+Z失效；
2. 恢复原始内容仍高亮：未对比单元格原始值，只要发生修改操作就会高亮，即使改回原值也无法自动取消填充色。

解决方案 #

通过创建隐藏工作表存储单元格原始值，在变更事件中对比当前值与原始值，动态调整填充色，同时避免循环触发事件。

步骤1：初始化原始值存储 #

在ThisWorkbook模块中添加以下代码，用于工作簿打开时创建隐藏工作表并存储目标工作表的原始值：

Private Sub Workbook_Open()
    Dim ws As Worksheet
    ' 创建存储原始值的工作表（不存在则新建）
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets("OriginalValues")
    On Error GoTo 0
    If ws Is Nothing Then
        Set ws = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
        ws.Name = "OriginalValues"
        ws.Visible = xlSheetVeryHidden ' 设置为深度隐藏，防止误操作
    End If
    ' 将目标工作表（这里是Sheet1，可自行修改）的已使用区域值复制到隐藏表
    With ThisWorkbook.Worksheets("Sheet1")
        .UsedRange.Copy
        ws.Range("A1").PasteSpecial xlPasteValues
    End With
    Application.CutCopyMode = False
End Sub

步骤2：修改变更事件代码 #

在需要监控的工作表模块（如Sheet1）中替换原代码为：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim originalWs As Worksheet
    Dim cell As Range
    Dim originalValue As Variant
    Dim currentValue As Variant
    
    ' 关闭事件触发，避免循环执行
    Application.EnableEvents = False
    
    Set originalWs = ThisWorkbook.Worksheets("OriginalValues")
    
    ' 遍历所有变更的单元格
    For Each cell In Target
        originalValue = originalWs.Range(cell.Address).Value
        currentValue = cell.Value
        
        ' 对比值，设置填充色
        If currentValue <> originalValue Then
            cell.Interior.ColorIndex = 6 ' 黄色高亮
        Else
            cell.Interior.ColorIndex = xlColorIndexNone ' 清除填充色
        End If
    Next cell
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

额外说明 #

• 重置原始值：如果需要将当前工作表内容设为新的基准值，可手动执行Workbook_Open中的代码，或添加一个按钮来触发重置逻辑；
• 撤销问题：VBA修改单元格属性会破坏默认撤销栈，无法完全恢复Ctrl+Z的完整功能，但当你撤销内容到原始值时，代码会自动清除填充色；
• 工作表名称：请根据实际需求修改代码中的Sheet1为目标工作表名称，不要删除隐藏的OriginalValues工作表。

内容的提问来源于stack exchange，提问作者tc123