三种多列下拉列表类型——分步指南

当您在 Google 上搜索“excel 下拉列表多列”时，可能需要完成以下其中一项任务：

在本教程中，我们将逐步演示如何高效完成这三项任务。

获取示例文件：

单击下载示例文件

基于多列创建动态列表

如下方 GIF 所示，您希望创建一个主下拉列表用于选择大洲，随后根据所选大洲生成包含对应国家的二级下拉列表，并进一步根据所选国家生成包含相应城市的三级下拉列表。本节介绍的方法将助您轻松实现这一目标。

使用公式基于多列创建动态列表

步骤 1：创建主下拉列表

1. 选择要插入下拉列表的单元格（此处我选择 G9:G13），转到数据选项卡，单击数据验证> 数据验证。

2. 在数据验证对话框中，请按以下方式配置：

1)单击设置选项卡；

2)在列表中选择允许下拉列表；

3)单击来源框，选择包含要在下拉列表中显示的大洲的单元格；

4)单击确定按钮。参见截图：

步骤 2：创建二级下拉列表

1. 选择包含要在二级下拉列表中显示项目的整个区域，转到公式选项卡，然后单击根据所选内容创建。

2. 在根据所选内容创建对话框中，仅勾选首行复选框，然后点击确定按钮。

3. 选择要插入二级下拉列表的单元格，转到数据选项卡，单击数据验证> 数据验证。

4. 在数据验证对话框中，您需要：

1)保留在设置选项卡；

2)在列表中选择允许下拉列表；

3)在来源框中输入以下公式。

=INDIRECT(SUBSTITUTE(G9," ","_"))

其中 G9 是主下拉列表单元格的第一个单元格。

4)单击确定按钮。

5. 选中此下拉列表单元格，向下拖动其自动填充柄，即可将该下拉列表应用到同一列的其他单元格。

二级下拉列表现已完成：当您在主下拉列表中选择一个洲后，二级下拉列表将仅显示该洲所包含的国家。

步骤 3：创建三级下拉列表

1. 选择包含要在三级下拉列表中显示值的整个区域。转到公式选项卡，然后单击根据所选内容创建。

2. 在根据所选内容创建对话框中，仅勾选首行复选框，然后单击确定按钮。

3. 选择要插入三级下拉列表的单元格，转到数据选项卡，单击数据验证> 数据验证。

4. 在数据验证对话框中，您需要：

1)保留在设置选项卡；

2)在列表中选择允许下拉列表；

3)在来源框中输入以下公式。

=INDIRECT(SUBSTITUTE(H9," ","_"))

其中 H9 是次级下拉列表单元格的第一个单元格。

4)单击确定按钮。

5. 选择此下拉列表单元格，拖动其自动填充柄向下应用到同一列中的其他单元格。

包含城市的三级下拉列表现已完成。当您在二级下拉列表中选择一个国家后，三级下拉列表将仅显示该国对应的城市。

上述方法对部分用户来说可能略显繁琐；若您希望采用更高效、更直接的解决方案，以下方法仅需几次单击即可轻松实现。

使用 Kutools for Excel 只需几次单击即可基于多列创建动态列表

下方 GIF 图展示了 Kutools for Excel 的动态下拉列表功能操作步骤。

如您所见，整个操作仅需几次单击即可轻松完成。您只需：

上方 GIF 图仅演示了创建两级下拉列表的步骤。如需创建超过 2 级的下拉列表，请点击此处了解更多信息；或 下载 30 天免费试用版，立即体验！

在 Excel 的下拉列表中进行多项选择

本节为您提供两种方法，助您在 Excel 下拉列表中轻松实现多项选择。

使用 VBA 代码在 Excel 下拉列表中进行多项选择

以下 VBA 脚本可助您在 Excel 下拉列表中实现多项选择，且确保选项不重复。请按以下步骤操作：

步骤 1：打开 VBA 代码编辑器并复制代码

1. 右键单击工作表标签，然后从右键菜单中选择查看代码。

2. 随后会弹出 Microsoft Visual Basic for Applications 窗口，您需将以下 VBA 代码复制到工作表（代码）编辑器中。

VBA 代码：允许在下拉列表中进行多项选择且不重复

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2019/11/13
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or _
                   InStr(1, xValue1, ", " & xValue2) Or _
                   InStr(1, xValue1, xValue2 & ",") Then
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & ", " & xValue2
                End If
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

步骤 2：测试代码

粘贴代码后，按下 Alt+Q 键，即可关闭 Visual Basic 编辑器并返回工作表。

提示：此代码适用于当前工作表中的所有下拉列表。只需点击包含下拉列表的单元格，逐个选择下拉选项，即可测试其是否生效。

使用 Kutools for Excel 只需几次单击即可在 Excel 下拉列表中进行多项选择

VBA 代码存在诸多限制，如果您不熟悉 VBA 脚本，就很难修改代码以满足自身需求。这里推荐一个强大功能——多选下拉列表，助您轻松从下拉列表中选择多个项目！

安装 Kutools for Excel 后，转到 Kutools 选项卡，点击下拉列表 > 使下拉列表可多次选择，然后按如下方式配置。

1. 指定包含下拉列表的区域，以便从中选择多个项目。
2. 指定下拉列表单元格中所选项目数量的分隔符。
3. 单击确定即可完成设置。
   

结果

现在，当您单击限定区域中带有下拉列表的单元格时，其旁边会立即弹出一个列表框。只需点击项目旁的“+”按钮，即可将其添加到下拉单元格中；若要移除不再需要的项目，点击“——”按钮即可。效果如下方演示所示：

在下拉列表中显示多列

如下图所示，本节将为您展示如何在下拉列表中显示多列内容。

默认情况下，数据验证下拉列表仅显示单列项目。若希望在下拉列表中展示多列内容，建议使用组合框（ActiveX 控件）替代数据验证下拉列表。

步骤 1：插入组合框（ActiveX 控件）

1. 转到开发工具选项卡，单击插入 > 组合框（ActiveX 控件）。

提示：如果功能区中未显示开发工具选项卡，您可以按照本教程“显示开发工具选项卡”中的步骤操作。

2. 然后在要显示下拉列表的单元格中绘制一个组合框。

步骤 2：更改组合框的属性

1. 右键单击组合框，然后从上下文菜单中选择属性。

2. 在属性对话框中，请按以下方式配置：

1)在 ColumnCount 字段中，输入一个数字，表示要在下拉列表中显示的列数；

2)在 ColumnWidths 字段中，请定义每列的宽度。此处我将每列宽度定义为 80 pt;100 pt;80 pt;80 pt;80 pt；

3)在 LinkedCell 字段中，指定一个单元格以输出与下拉列表中所选项相同的值。此单元格将在后续步骤中使用；

4)在 ListFillRange 字段中，输入要在下拉列表中显示的数据区域。

5)在 ListWidth 字段中，为整个下拉列表指定一个宽度。

6)关闭属性对话框。

步骤 3：在下拉列表中显示指定列

1. 在开发工具选项卡下，点击设计模式按钮，即可关闭设计模式图标。

2. 单击组合框的箭头，列表随即展开，您即可在下拉列表中查看指定数量的列。

步骤 4：在特定单元格中显示其他列的项目

1. 在组合框下方选择一个单元格，输入以下公式，然后按 Enter 键，即可获取该行第二列的值。

=IFERROR(VLOOKUP(B1,B3:F6,2,FALSE),"")

2. 要获取第三、第四和第五列的值，请依次使用以下公式。

=IFERROR(VLOOKUP(B1,B3:F6,3,FALSE),"")

=IFERROR(VLOOKUP(B1,B3:F6,4,FALSE),"")

=IFERROR(VLOOKUP(B1,B3:F6,5,FALSE),"")

相关文章