点击
蓝字【秋叶 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 代码哦）
👇
👇
👇
今日份小知识——
下拉多选列表
已送达，收到的小伙伴们点个
在看
吧
~
看完本文，是不是直呼「涨见识了！！！」
如果你还想学习更多 Excel 里好用高效的小技巧，欢迎你加入
秋叶 Excel 3 天集训营
！
