比下拉列表强10倍！它才是Excel中数据录入的No.1

点击蓝字【秋叶 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 天集训营！

《秋叶 Excel 3 天集训营》

原价 99 元

新课上线

视频+图文笔记+作业实操+助教答疑

Excel 和 WPS 双软件教学

抢占学习名额吧！

报名后会弹出班主任微信

记得添加，才能上课+领取资料！