如何用VBA实现Excel下拉列表的自动导航？

我有一个包含约150个姓名的Excel下拉列表，选中列表中的姓名后，其他单元格会自动显示对应信息。手动操作时，选中目标单元格后按Alt+↑、↓、Enter就能切换到列表中的下一个姓名，但用VBA模拟按键的方式无法实现自动操作：

尝试的VBA代码：

ws.Range("C3").Select ' 选中带下拉列表的单元格
Application.SendKeys "%{UP}" ' 模拟Alt + 上箭头
Application.SendKeys "{DOWN}"
Application.SendKeys "{ENTER}"

这段代码只能打开下拉列表，即使在每个按键间添加1秒延迟也无效；录制切换下拉项的宏也没有生成任何代码，求可行的VBA实现方案。

不用依赖不可靠的SendKeys模拟按键，直接操作下拉列表的数据源，找到当前值的位置后设置下一项，稳定性和效率更高。

针对数据验证（Data Validation）下拉列表 #

这是Excel最常用的下拉列表类型，代码如下：

Sub NextDropdownItem()
    Dim targetCell As Range
    Dim dvList As Variant
    Dim currentVal As String
    Dim i As Integer
    Dim listCount As Integer
    
    ' 替换为你的目标单元格（工作表名+单元格地址）
    Set targetCell = ThisWorkbook.Worksheets("Sheet1").Range("C3")
    
    ' 检查单元格是否存在数据验证下拉列表
    If Not targetCell.Validation.Type = xlValidateList Then
        MsgBox "目标单元格无数据验证下拉列表！"
        Exit Sub
    End If
    
    ' 获取下拉列表的数据源
    dvList = targetCell.Validation.Formula1
    ' 处理两种数据源格式：单元格区域/直接输入的逗号分隔列表
    If Left(dvList, 1) = "=" Then
        dvList = ThisWorkbook.Evaluate(dvList)
        dvList = Application.Transpose(dvList) ' 转成一维数组
    Else
        dvList = Split(dvList, ",")
    End If
    
    currentVal = targetCell.Value
    listCount = UBound(dvList)
    
    ' 定位当前值并切换到下一项
    For i = 1 To listCount
        If dvList(i) = currentVal Then
            targetCell.Value = IIf(i = listCount, dvList(1), dvList(i + 1))
            Exit For
        End If
    Next i
    
    ' 若当前值不在列表中，默认设为第一个选项
    If targetCell.Value = currentVal Then
        targetCell.Value = dvList(1)
    End If
End Sub

代码说明 #

• 支持两种下拉数据源：单元格区域引用（如=Sheet2!A1:A150）和手动输入的逗号分隔列表
• 到达列表末尾时自动回到第一个选项，形成循环切换
• 无需模拟按键，避免了焦点变化、延迟等导致的失效问题

针对ActiveX组合框控件 #

如果下拉列表是开发工具中的ActiveX组合框，用以下代码：

Sub NextComboBoxItem()
    Dim cbo As MSForms.ComboBox
    ' 替换为你的工作表名和组合框控件名
    Set cbo = ThisWorkbook.Worksheets("Sheet1").ComboBox1
    
    With cbo
        ' 切换到下一项，末尾则回到开头
        .ListIndex = IIf(.ListIndex = .ListCount - 1, 0, .ListIndex + 1)
    End With
End Sub

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