如何在Excel中创建动态级联列表框？

网友投稿 208 2023-12-23

如何在Excel中创建动态级联列表框？

您可能知道如何在Excel中创建级联验证下拉列表。但是，如何在Excel中创建动态级联列表框？本文介绍了一种VBA方法来简化它。

使用VBA代码创建动态级联列表框

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

如下面的屏幕截图所示，您需要创建一个包含Drink列的唯一值的父级列表框，并根据父级列表框中的选择在第二个列表框中显示所有对应的值。以下VBA代码可帮助您实现它。请执行以下操作。

1.首先，您需要从“饮料”列中提取所有唯一值。选择一个空白单元格，输入数组公式 =IFERROR(INDEX($A:$A, MATCH(0,COUNTIF($J:J1, $A:$A), 0)),"") 到 配方栏，然后按 按Ctrl + 转移 + 输入键。然后拖动 填充手柄 获得所有唯一值。看截图：

备注：在公式， $A:$A 是您将从中提取唯一值的范围。 J1是公式所在位置上方的单元格。

Tips:：如果公式难以记住和处理，则 选择重复和唯一单元格 实用程序 Kutools for Excel 对于您来说，从列中快速提取所有唯一值是一个不错的选择。

请选择包含您要提取的唯一值的列。然后通过单击启用该实用程序 Kutools > 选择 > 选择重复和唯一单元格。在 选择重复和唯一单元格 对话框中，选择 所有唯一（包括第一个重复项） 选项，然后单击 OK 按钮。然后，在该列中选择所有唯一值。请复制并粘贴到新位置。看截图：

Kutools for Excel：具有200多个方便的Excel加载项，可以在60天内免费试用，没有任何限制。 立即下载并免费试用！

2.通过单击分别插入两个列表框 开发商 > 插页 > 列表框（ActiveX控件）。看截图：

3.右键单击父列表框，然后选择租房从上下文菜单中。在里面租房对话框，更改 （姓名） 字段饮品或您需要的其他名称，将包含提取的唯一值的单元格区域输入到 列表填充范围 字段并关闭对话框。

4.重复步骤3更改第二个列表框的 （姓名） 字段到租房对话框。

5.右键单击工作表选项卡，然后选择 查看代码 从右键单击菜单中。然后将下面的VBA代码复制到“代码”窗口中。看截图：

VBA代码：在Excel中创建动态级联列表框

Dim xPreStr As String Private Sub Drink_Click() Update by Extendoffice 2018/06/04 Dim I, xRows As Long Dim xRg As Range Dim xRegStr As String Application.ScreenUpdating = False xRegStr = Me.Drink.Text Set xRg = Range("A2:A11") xRows = xRg.Rows.Count If xRegStr <> xPreStr Then Me.Item.Clear Me.OtherListBoxName.Clear Set xRg = xRg(1) For I = 1 To xRows If xRg.Offset(I - 1).Value = xRegStr Then Me.Item.AddItem xRg.Offset(I - 1, 1).Value Me.OtherListBoxName.AddItem xRg.Offset(I - 1, 2).Value End If Next xPreStr = xRegStr End If Application.ScreenUpdating = True End Sub