Excel VBA 带特殊需求的依赖下拉列表实现求助

直接上可行的实现代码，核心是通过工作表的变更事件监听Z列（列26）的选择，根据值动态设置B列（列2）的下拉列表：

核心代码（工作表模块） #

把这段代码粘贴到目标工作表的代码窗口（右键工作表标签→查看代码）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理Z列（第26列）的单个单元格变更
    If Target.Column <> 26 Or Target.Cells.Count > 1 Then Exit Sub
    
    Dim targetB As Range
    Set targetB = Me.Cells(Target.Row, 2) ' 定位对应行的B列单元格
    
    ' 先清除B列原有数据验证，避免重复添加报错
    targetB.Validation.Delete
    
    ' 根据Z列选中值分支处理
    Select Case UCase(Target.Value)
        ' 匹配A/C/E/F时添加1/2/3下拉
        Case "A", "C", "E", "F"
            With targetB.Validation
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                     Operator:=xlBetween, Formula1:="1,2,3"
                .InCellDropdown = True
                .IgnoreBlank = True
            End With
        ' 匹配B/D时仅清除验证，不添加下拉
        Case "B", "D"
        ' 其他值默认清除验证，可根据需求调整
        Case Else
    End Select
End Sub

关键点说明 #

• 范围限制：只处理Z列的单个单元格变更，避免批量操作时的性能问题或误触发
• 大小写兼容：用UCase()统一转大写，不管用户输入大小写都能匹配
• 先清后加：每次操作前删除B列原有验证，防止重复添加数据验证导致的运行错误
• 逻辑清晰：用Select Case替代多个If判断，多条件场景下更易维护

批量初始化历史数据 #

如果工作表中已有Z列的历史数据，需要一次性同步设置对应B列的下拉，可运行这段辅助宏（同样放在工作表模块）：

Sub InitExistingRows()
    Dim lastRow As Long, i As Long
    lastRow = Me.Cells(Me.Rows.Count, 26).End(xlUp).Row ' 获取Z列最后一行数据行号
    
    For i = 1 To lastRow
        Worksheet_Change Me.Cells(i, 26) ' 触发变更逻辑
    Next i
End Sub

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