点击蓝字【秋叶 Excel】👆
发送【UP】
免费领 13 篇 Vlookup 教程合集！
本文作者：绿水零
本文审核：小爽
本文编辑：雅梨子、卫星酱
大家好！我是最近又开始倒腾 VBA 的绿水零。
作为一名资深表姐，我在日常工作中，肯定是少不汇总数据了的。
例如年终汇总大家的福利什么的，让大家从福利清单中选几样，汇总起来就是这个样子↓↓↓
虽然福利列表（可以选的福利）都是相同的，但每个人选的福利组合并不相同。
要手动一个一个输入？【Ctrl+C】&【Ctrl+V】？
不可能的，不可能的，肯定有更方便的方法的。
从相同的列表选项中选取不同组合，这不就是多选题（多选的下拉列表）吗？
那怎么在 Excel 中简单制作，添加选项简便又快捷的——下拉多选列表呢！
噔噔蹬蹬，照例先看看效果图：
（以下方法适用于有 VBA 的 Excel，演示使用的是 Office 365。）
解决方法
❶ 既然是下拉列表，那我们第一步就先来添加一个列表。
点击【开发工具】选项卡-【插入】-ActiveX 控件-列表框。
注意：是 ActiveX 控件，不是表单控件。
❷ 随手画一个列表框，大小位置随意，画完之后，再次点击【开发工具】选项卡-「设计模式」，退出「设计模式」。
「设计模式」按钮由灰色变回白色，则表明已退出。
❸ 新建工作表「data」，在 A1 单元格输入下拉选项的标题，A2 及以下的单元格输入选项内容。
❹ 回到 Sheet1 工作表，使用快捷键【Alt+F11】打开 VBA 编辑器，双击需要添加多选列表的工作表（此处是 Sheet1），然后将相关的 VBA 代码黏贴到代码窗口。
最后关闭 VBA 编辑器。
（VBA 代码获取方式见文末。）
这样多选下拉列表就搞定了，接下来我们看看效果。
结果演示
现在我们就可以点击单元格，打开多选下拉列表，然后通过点击列表的选项，快速输入不同的选项组合。
（VBA 代码预留了第一行是标题，因此点击第一行不会出现下拉列表。）
除了以上功能外，通过在 data 工作表中增减或修改选项，可以快速修改下拉列表的选项内容，Sheet1 工作表中的列表框会自动更新选项。
data 工作表中的 A 列对应 Sheet1 工作表中 A 列的列表框，data 工作表中的 B 列对应 Sheet1 工作表中 B 列的列表框，以此类推。
如果 data 工作表中 A 列不填写任何内容，则 Sheet1 中的对应列也不会出现多选列表框。
因此，可以根据自己的需求，在任意列添加多选列表。
注意事项
❶ 如果你发现 Excel 没有【开发工具】选项卡，可以单击【文件】-「选项」-「自定义功能区」-「主选项卡」，找到「开发工具」并勾选。
❷ 设置列表选项的工作表（案例中的 data 工作表）必须命名为 data。
❸ 添加了 VBA 代码的文件，建议将文件格式保存为"启用宏的工作簿(*.xlsm)"，这样下次打开时，VBA 的功能才能正常使用。
关注我们公众号【秋叶 Excel】
后台回复关键词：多项选择
即可下载案例文件（包含 VBA 代码哦）
👇👇👇
今日份小知识——下拉多选列表已送达，收到的小伙伴们点个在看吧~
💬
