Excel多选项下拉列表VBA代码故障：DropDown子过程失效排查

1. 致命拼写错误 #

代码里Application.EnableEents = False少写了一个字母v，正确属性名应为Application.EnableEvents。这个错误会直接触发运行时错误，代码立刻跳转到错误处理的Exitsub标签，后续的多选逻辑完全没有执行机会。

2. SpecialCells方法使用错误 #

当Target是单个单元格且未设置数据验证时，Target.SpecialCells(xlCellTypeAllValidation)会直接抛出运行时错误，而非返回Nothing。原代码的判断逻辑无法处理这种情况，会直接触发错误跳转。

3. 逻辑分支写法混乱 #

Else: If Target.Value = "" Then GoTo Exitsub Else这种嵌套写法可读性极差，还容易导致逻辑分支出错，让代码走不到预期的执行路径。

修正后的代码示例 #

Sub DropDown(Target As Range)
    Dim Oldvalue As String
    Dim Newvalue As String
    Dim hasValidation As Boolean
    
    On Error Resume Next
    ' 检查单元格是否有数据验证
    hasValidation = Not Target.Validation Is Nothing
    On Error GoTo Exitsub
    
    If Not Intersect(Target, Range("H11")) Is Nothing Then
        If Not hasValidation Then GoTo Exitsub
        If Target.Value = "" Then GoTo Exitsub
        
        Application.EnableEvents = False
        Newvalue = Target.Value
        Application.Undo
        Oldvalue = Target.Value
        
        If Oldvalue = "" Then
            Target.Value = Newvalue
        Else
            ' 检查值是否已存在，可选添加vbTextCompare忽略大小写
            If InStr(1, Oldvalue, Newvalue) = 0 Then
                Target.Value = Oldvalue & vbNewLine & Newvalue
            Else
                Target.Value = Oldvalue
            End If
        End If
    End If

Exitsub:
    Application.EnableEvents = True
End Sub

修正点说明 #

• 补全EnableEvents的拼写，让事件禁用逻辑正常生效
• 改用Target.Validation Is Nothing判断数据验证，避免原方法的报错问题
• 整理逻辑分支结构，提升代码可读性
• 可选添加vbTextCompare参数，让重复值判断不区分大小写（按需调整）

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