如何在 Excel 中仅使用唯一值填充组合框?

ms excelmicrosoft technologiesadvanced excel function更新于 2025/3/15 7:08:17

为了改进数据管理和分析，Excel 是一款功能强大的应用程序，提供了丰富的功能。组合框(通常称为下拉列表)是一项实用功能，它允许用户从预定义列表中选择选项。尽管 Excel 自带了创建组合框的工具，但有时您可能希望使用特定单元格组中的特定值来填充组合框。

在本教程中，我们将逐步介绍如何使用唯一数据填充 Excel 组合框。您可以遵循这些指南来简化数据输入过程，并确保用户拥有直观、无错误的组合框使用体验。那么，让我们开始学习如何在 Excel 组合框中填充唯一值吧!

仅使用唯一值填充组合框

在这里，我们将首先插入一个组合框，然后为其分配一个宏来完成任务。让我们通过一个简单的过程来了解如何在 Excel 中仅使用唯一值填充组合框。

步骤 1

假设有一个 Excel 工作表，其中包含一个包含重复值的项目列表和一个组合框，如下图所示。

首先，右键单击组合框，然后选择"查看代码"以打开应用程序。然后将以下代码复制到文本框中。

右键单击 >查看代码 > 复制。

代码

Public Sub Populate_combobox_with_Unique_values()
   Dim vStr, eStr
   Dim dObj As Object
   Dim xRg As Range
   On Error Resume Next
   Set dObj = CreateObject("Scripting.Dictionary")
   Set xRg = Application.InputBox("Range select:", "Populate Combo Box", _ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
   vStr = xRg.Value
   Application.ScreenUpdating = False
   With dObj
      .comparemode = 1
      For Each eStr In vStr
         If Not .exists(eStr) And eStr <> "" Then .Add eStr, Nothing
      Next
      If .Count Then
         ActiveSheet.ComboBox1.List = WorksheetFunction.Transpose(.keys)
      End If
   End With
   Application.ScreenUpdating = True
End Sub