嘿，我来帮你搞定这个问题！要做一个只显示指定5/10个工作表的跳转下拉菜单，咱们有两种实用方法，按需选择就行：

这种方法适合想用普通单元格做下拉的场景：

• 第一步：先把你要指定的工作表名称，准确列在一个空白区域（比如Sheet1的A1:A5，名称要和工作表实际名称完全一致，大小写也不能错）。
• 第二步：选中你要放下拉菜单的单元格（比如Sheet1的B1），点击「数据」选项卡 → 「数据验证」，选择「序列」类型，在「来源」框里选中刚才的A1:A5区域，确定后下拉菜单就只显示你指定的工作表了。
• 第三步：添加跳转功能，右键点击放下拉菜单的工作表标签（比如Sheet1）→ 「查看代码」，粘贴下面的VBA代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 把下面的$B$1改成你下拉菜单所在的单元格地址
    If Target.Address = "$B$1" And Target.Value <> "" Then
        On Error Resume Next ' 避免输入无效名称时弹出报错
        ThisWorkbook.Sheets(Target.Value).Activate
        On Error GoTo 0
    End If
End Sub

• 第四步：把文件保存为「启用宏的工作簿（.xlsm）」，之后点击下拉选项就能直接跳转到对应工作表啦。

如果想要更专业的下拉控件，选这个方法：

• 第一步：点击「开发工具」选项卡 → 「插入」→ 选择「组合框（表单控件）」，在工作表上拖出一个合适大小的组合框。
• 第二步：右键组合框 → 「设置控件格式」→ 切换到「控制」选项卡：
  • 「数据源区域」选择你之前列好的指定工作表名称区域（比如A1:A5）
  • 「单元格链接」可以选一个空白单元格（用来存选中项的序号，可选）
  • 「下拉显示项数」设置成你需要的数字（比如5），点击确定。
• 第三步：右键组合框 → 「指定宏」，点击「新建」，粘贴下面的代码：

Sub 工作表跳转()
    Dim cb As Object
    Set cb = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
    If cb.ListIndex <> -1 Then ' 确保选中了有效选项
        ThisWorkbook.Sheets(cb.List(cb.ListIndex)).Activate
    End If
End Sub

• 第四步：同样保存为xlsm格式，点击组合框里的选项就能跳转了。

小提醒 #

• 要是后续需要修改指定的工作表，直接修改名称列表区域就行，下拉菜单会同步更新（数据验证的话可能需要重新选一次来源，嫌麻烦可以用动态名称，不过新手先按上面的步骤来就够）
• 打开文件的时候记得启用宏，不然跳转功能不会生效哦。

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