Excel VBA：单元格值变更时如何存储变更单元格的值

你可以直接利用Worksheet_Change事件的Target参数来获取变更单元格的值——这个参数本身就代表触发变更的单元格区域，和后续活动单元格的变化无关，完全不需要依赖ActiveCell。

以下是两种可行的实现方式：

方式1：直接将值作为参数传递给宏 #

这种方式不需要额外的变量存储，直接把变更值传给执行搜索的宏，逻辑更清晰：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 禁用事件防止循环触发
    Application.EnableEvents = False
    
    On Error GoTo RestoreEvents ' 出错时恢复事件
    
    ' 只处理A列的变更
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        ' 处理单个单元格变更的情况（录入场景大多是单个单元格）
        If Target.Cells.Count = 1 Then
            Call MyMacro(Target.Value)
        End If
    End If

RestoreEvents:
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

Sub MyMacro(searchValue As Variant)
    ' 切换到目标工作表执行搜索
    Sheets("目标工作表名称").Activate
    
    ' 示例：在目标工作表的A列搜索对应值
    Dim foundCell As Range
    Set foundCell = Sheets("目标工作表名称").Range("A:A").Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        MsgBox "找到对应值，位置：" & foundCell.Address
        foundCell.Select ' 可选：定位到找到的单元格
    Else
        MsgBox "未找到对应值"
    End If
End Sub

方式2：用模块级变量存储变更值 #

如果需要在多个宏之间共享这个值，可以在标准模块中定义一个模块级变量：

1. 插入一个新的标准模块（按Alt+F11，右键插入→模块）
2. 在模块中定义变量：

Public lastChangedValue As Variant ' 模块级公共变量，存储变更值

3. 修改工作表事件和宏：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error GoTo RestoreEvents
    
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        If Target.Cells.Count = 1 Then
            lastChangedValue = Target.Value
            Call MyMacro
        End If
    End If

RestoreEvents:
    Application.EnableEvents = True
End Sub

Sub MyMacro()
    Sheets("目标工作表名称").Activate
    
    Dim foundCell As Range
    Set foundCell = Sheets("目标工作表名称").Range("A:A").Find(What:=lastChangedValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        MsgBox "找到对应值，位置：" & foundCell.Address
        foundCell.Select
    Else
        MsgBox "未找到对应值"
    End If
End Sub

关键说明 #

• Target参数是Worksheet_Change事件的核心，它精准指向触发变更的单元格，不会因为后续活动单元格切换而失效。
• 加入Application.EnableEvents = False是为了防止在宏执行过程中（比如修改单元格）再次触发Worksheet_Change事件，造成循环。
• 处理Target.Cells.Count = 1是为了避免批量粘贴多个单元格时出现异常，如果你需要支持批量处理，可以去掉这个判断并遍历Target中的每个单元格。

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