保留Excel中VBA行列高亮功能同时恢复Ctrl-Z撤销功能

推荐方案：用条件格式实现（完全不影响撤销） #

条件格式是基于规则的格式设置，不会修改单元格本身的属性，因此完全不会干扰Ctrl-Z撤销功能。步骤如下：

1. 点击工作表左上角行号与列标交叉的按钮，选中整个工作表
2. 打开「条件格式」→「新建规则」→选择「使用公式确定要设置格式的单元格」
3. 输入公式：=OR(ROW()=CELL("row"),COLUMN()=CELL("col"))
4. 点击「格式」按钮，分别设置行和列的填充颜色（比如行用38号色、列用24号色）
5. 最后添加一段极简VBA触发格式刷新（因为CELL函数不会自动更新）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Calculate ' 触发条件格式的CELL函数更新，切换单元格时自动刷新高亮
End Sub

备选方案：改进原有VBA代码（减少对撤销栈的影响） #

如果坚持用VBA修改单元格格式，可通过只清除上一次高亮的行/列，避免全表重置，从而保留撤销功能：

' 模块级变量，记录上一次选中的行和列
Private prevRow As Long
Private prevCol As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    
    Application.ScreenUpdating = False
    
    ' 清除上一次的高亮记录
    If prevRow > 0 Then
        Rows(prevRow).Interior.ColorIndex = 0
        Columns(prevCol).Interior.ColorIndex = 0
    End If
    
    ' 高亮当前选中的行和列
    Target.EntireRow.Interior.ColorIndex = 38
    Target.EntireColumn.Interior.ColorIndex = 24
    
    ' 更新上一次的记录
    prevRow = Target.Row
    prevCol = Target.Column
    
    Application.ScreenUpdating = True
End Sub

此方法仅修改少量单元格的格式，撤销栈会保留用户之前的输入操作，Ctrl-Z可正常使用（只会多几个格式撤销步骤）。

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