如何让Worksheet_Change宏仅在单元格从非空下拉值变更时触发？

你遇到的核心问题是Worksheet_Change事件只能拿到变更后的单元格值，没法直接获取变更前的内容。要实现只在从下拉列表的非空旧值变更时触发宏，我们可以借助Worksheet_SelectionChange事件提前记录选中单元格的原始值，再在Change事件里做对比判断。

具体步骤和代码如下：

步骤1：声明模块级变量存储旧值 #

先在工作表代码模块的最顶部（所有事件之外）声明一个变量，用来保存我们选中单元格时的初始值：

Dim OldValue As Variant

步骤2：用SelectionChange记录旧值 #

当用户选中第5列的单元格时，把它当前的值存到OldValue里：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 只关注第5列的单个单元格
    If Target.Column = 5 And Target.Cells.Count = 1 Then
        OldValue = Target.Value
    End If
End Sub

步骤3：在Change事件里做判断 #

现在在Change事件里，我们就能对比旧值和新值，只在旧值非空且新旧值不同时触发逻辑：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 先处理事件禁用，防止循环触发
    On Error GoTo exitHandler
    Application.EnableEvents = False
    
    ' 只处理第5列的单个单元格变更
    If Target.Column = 5 And Target.Cells.Count = 1 Then
        ' 判断：旧值不是空，且新值和旧值不一样
        If Not IsEmpty(OldValue) And Target.Value <> OldValue Then
            MsgBox "Test2" ' 这里替换成你实际要执行的代码
        End If
        ' 如果是从空值变过来的，就不执行任何操作
    End If

exitHandler:
    Application.EnableEvents = True
End Sub

关键细节说明 #

• 加入Target.Cells.Count = 1是为了防止用户粘贴多个单元格的情况，避免逻辑出错；
• On Error GoTo exitHandler确保即使代码出错，Application.EnableEvents也能恢复成True，不然后续的事件会失效；
• 如果你需要兼容下拉框里有空值的情况，可以再调整判断条件，比如加上Target.Value <> ""之类的逻辑，根据你的实际需求修改。

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