Excel VBA：Undo后如何保留变量中的Intersect结果值？

这个问题的核心在于你对VBA中对象引用和值类型的理解偏差，咱们一步步拆解：

为什么vNew会跟着Undo变？ #

你用Set vNew = Intersect(...)的时候，并没有把单元格的值存到变量里——而是让vNew变成了指向该Range对象的引用指针。当你执行Application.Undo后，单元格里的实际内容被还原了，此时你再访问vNew(1)，本质是在读取这个引用指向的单元格当前的内容（也就是旧值），而不是你最初想保存的新值。

解决思路：保存值而非引用 #

要固定住新值，你需要把单元格的内容复制到变量里，而不是保存Range对象的引用。具体来说，直接读取Range的Value属性赋值给变量，这样变量存储的是值类型（单个值或数组），不会随单元格内容变化而改变。

修改后的完整代码 #

Dim oldValues As Variant
Dim newValues As Variant ' 改名更清晰，避免混淆

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim affectedRange As Range
    ' 先锁定需要处理的有效范围
    Set affectedRange = Intersect(Target, Me.UsedRange)
    
    ' 如果Target不在UsedRange范围内，直接退出
    If affectedRange Is Nothing Then Exit Sub
    
    ' 1. 保存新值：直接读取单元格的值（值类型，不会随单元格变化）
    newValues = affectedRange.Value
    
    ' 测试输出新值（兼容单个/多个单元格的情况）
    MsgBox "新值：" & IIf(IsArray(newValues), newValues(1, 1), newValues)
    
    Application.EnableEvents = False
    Application.Undo
    
    ' 2. 保存旧值：读取Undo后的单元格值
    oldValues = affectedRange.Value
    
    ' 测试验证：newValues依旧是最初的新值，oldValues是还原后的旧值
    MsgBox "Undo后新值变量：" & IIf(IsArray(newValues), newValues(1, 1), newValues) & vbCrLf & _
           "旧值：" & IIf(IsArray(oldValues), oldValues(1, 1), oldValues)
    
    Application.EnableEvents = True
    
    ' 这里可以继续处理newValues和oldValues，比如写入日志、对比差异等
End Sub

关键细节说明 #

1. 值类型赋值：不用Set关键字，直接newValues = affectedRange.Value。如果是单个单元格，变量存储的是单个值；如果是多个单元格，会自动变成二维数组，通过(行,列)索引访问（比如newValues(2,3)对应第2行第3列的单元格值）。
2. 边界判断：增加If affectedRange Is Nothing Then Exit Sub，避免Target超出UsedRange时触发错误。
3. 兼容多单元格：用IsArray()判断变量是否为数组，确保单个和多个单元格场景都能正常输出。

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