注意：今天的内容适用于所有版本。

主编｜六个女孩

作者 | E- 描述

1. 青铜（最简单的下拉菜单）

在工具栏中，点击“数据验证”功能。在弹出的窗口中，按照以下步骤操作。

注意：无论选填内容是什么，都必须以“英文逗号”分隔，不需要双引号。

2. 银牌（下拉菜单中有很多内容）

方法一：在数据验证窗口中，按下图设置，直接选中[来源]中的单元格区域。

方法 2：使用名称管理器

选中A2:A17单元格，然后在[名称框]中编辑一个名称：比如我们输入“科学家”，按回车键。

注：如果是多列数据，我们可以点击【公式】-【名称管理器】来修改【科学家】的参考范围。

然后在数据验证窗口中按下图设置；

3. 金色——动态下拉菜单

如果选项的数量不确定，下拉选项也应该随着添加或删除而改变。

按CTRL+F3打开【名称管理器】窗口，新建名称“”，设置名称内容如下图：

参考位置函数：=(gold!$A$2,,,(gold!$A$2:$A$997),)

使用函数确定该区域中的内容量，然后使用数据验证来创建下拉菜单。

提取唯一值然后创建下拉菜单

假如使用函数获取A列的数据，例如去除某列重复的数据移动端下拉框关键词★64xl.com批量做词霸屏，下拉框关键词软件，如下所示：

单元格A2的功能为：

{=(($A$2:$A$38,(IF(($A$2:$A$38,$A$2:$A$38,0)=ROW($1:$37),ROW($1:$37),9^9),ROW(B1))),"")}

然后下拉到A18就拿到去重后的内容了，然后在数据验证的时候用名称去引用。

但请注意：表格中，函数错误容差后的 B8:B18 全部是空格，所以用函数提取选项个数的写法是错误的，我们可以改写如下写法：

函数如下：

=（黄金！$B$2,,,（黄金！$B$2：$B$18）-（黄金！$B$2：$B$18）,）

使用-方法来确定应采取多少个选项内容。

4.钻石级-多内容下拉菜单，填充时拆分内容

下拉菜单选择包含多个内容，每个内容具有不同的属性，选择后自动填充到多个单元格中。此方法是使用VBA操作，代码如下：

代码太长，请向上滚动查看

Sub(As)'''单元格值改变，触发事件

如果 . = 4 且 . = 1 则 '''判断是否在D列关键下拉菜单，选择一个单元格

使用'''使用此单元格

s = .Text '''单元格值被赋值给变量 s

.(1, 2) = (s, "：") '''单元格扩展1行2列，然后使用函数将按冒号分割的数组赋值给单元格范围

以 ''' 结尾，带有 end 语句

End If '''结束判断

End Sub '''项目结束

Sub ( As ) '''选择单元格改变并触发事件

如果 . = 4 且 . = 1 则 '''判断是否在D列，选择一个单元格

带有（“钻石”）

s = Join(.(.("A2:A" & .[].End(3).Row)), ",") '''将A列中从A2开始的值的单元格连接成一个用逗号分隔的字符串

结尾

使用 . '为选定单元格创建数据验证

。

.添加类型:=, :=, := _

, := 秒

. = True '设置单元格允许空值

. = True '提供下拉列表

结尾

End If '结束判断

End Sub '''项目结束

您可以粘贴或者编写如下所示的代码。

5. King-智能输入下拉菜单，填写时拆分内容

如何制作多级下拉菜单？

通过第一行批量创建自定义名称，然后？

这种方式对于简单的数据源可以使用，但是对于较多的内容来说就不是很方便了。

比如说我们今天的数据源是全国范围的【省、市、县三级】智能下拉填充。

我们来看看效果：

这也是用VBA实现的，VBA能做到很多你日常生活中不敢想的事情，高级功能也只有VBA才能做出来。废话不多说，代码如下：

代码太长，请向上滚动查看

Sub ( As ) If . = 7 And .Row = 2 Then '''如果改变值的单元格为第7行第2列的单元格 [G2] With ("王者") '''使用“王者”工作表 arr = .("A2:C" & .[].End(3).Row) '''将A2单元格到A列最后一行单元格区域的值赋值 arr s = .Text '''将操作的单元格的值赋值给变量s If s "" Then '''如果s不为空 For i = 1 To (arr) '''循环数组arr st = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3) '''将省市县内容合并，使用|来分隔它们 If st Like "*" & s & "*" Then '''如果st字符串中包含s变量的内容 svd = svd & st & "," '''将st赋值给svd变量，作为下拉菜单的内容关键下拉菜单，用英文逗号分隔它们 End If Next i End If With .("G3"). '为单元格G3创建数据验证。 .Add Type:=, :=, := _ , :=svd . = True '设置单元格允许空值。 = True '提供下拉列表标签 End With .[G3] = "" '''单元格G3初始值为空 End With End If If . = 7 And .Row = 3 And .Text "" Then '''如果改变G3单元格的值，且该值不为空 With ("王者") a = .[].End(3).Row + 1 '''确定H列第一个空行。(a, 8) = (.Text, "|")(0) '''该方法拆分下拉菜单的内容，将第一个值放入第8列最后一个空白行。(a, 9) = (.Text, "|")(1) '''同上，放入第二个值。(a, 10) = (.Text, "|")(2) '''同上，放入第三个值'''注意：该方法拆分后为一维数组，VBA中内存数组序列默认从0开始计数。[G3] = "" '''G3单元格被重置为零 End With End Sub

会写代码真好，有了VBA，世界就是我的了！

但是，总有人比你更优秀。除了上面的“下拉菜单”，我们其实还有更高的水平。有人想了解更多吗？