Excel VBA Worksheet_Change事件下拉列表赋值结果与预期不符问题

问题根因 #

• 事件递归触发：在Worksheet_Change事件内部直接修改目标单元格的Value属性，会再次触发当前事件，未执行完的逻辑被中断、数值被重复计算覆盖，是本次结果不符合预期的核心原因。
• 缺少边界判断：未对修改区域的单元格数量做校验，如果用户选中多单元格同时修改，会导致变量赋值异常，也可能干扰正常赋值逻辑。
• 格式匹配问题：如果你的预期返回值2/2为文本格式，需要确认ClassVEE区域第二列的对应值是不是被Excel自动识别为分数、日期格式，或者单元格本身格式设置错误导致展示异常。

修复后代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updateby Extendoffice
    ' 仅处理单个单元格修改的场景
    If Target.CountLarge > 1 Then Exit Sub
    Dim selectedNa As Variant, selectedNum As Variant
    selectedNa = Target.Value
    If Target.Column = 2 Then
        ' 关闭事件触发，避免递归
        Application.EnableEvents = False
        On Error GoTo ErrHandler ' 异常捕获，保证事件始终能重新打开
        selectedNum = Application.VLookup(selectedNa, Worksheets("Descrição").Range("ClassVEE"), 2, False)
        If Not IsError(selectedNum) Then
            ' 若需要固定文本格式可以取消下一行的注释
            ' Target.NumberFormat = "@"
            Target.Value = selectedNum
        End If
ErrHandler:
        ' 重新打开事件触发
        Application.EnableEvents = True
    End If
End Sub

额外调试建议 #

如果修改后依旧返回错误值，可以在VLookup行打断点，查看selectedNum的实际返回值，确认ClassVEE区域的第一列是否存在重复的匹配项，导致VLookup返回了第一个匹配的对应值1，而非你预期的2/2。

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