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

当您使用包含一些重复值的数据列表创建组合框时，组合框不会自动排除这些重复值。在这种情况下，如何才能在组合框中仅显示唯一的项目呢？也许本教程可以帮到您。

使用 VBA 代码仅用唯一值填充组合框

使用 VBA 代码仅用唯一值填充组合框

以下 VBA 代码可能帮助您在创建组合框时添加唯一值，请按以下步骤操作：

1. 首先插入一个组合框，请点击 开发工具 > 插入 > 组合框（ActiveX 控件），然后拖动鼠标绘制一个组合框，参见截图：

2. 然后右键单击组合框，并从上下文菜单中选择 查看代码，参见截图：

3. 随后弹出 Microsoft Visual Basic for Applications 窗口，请复制并粘贴以下代码以替换原始代码。

VBA 代码：组合框中的唯一值：

Public Sub Populate_combobox_with_Unique_values()
'Updateby Extendoffice
    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:", "Kutools for Excel", _
                                    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

注意：在上述代码中，ComboBox1 是您创建的组合框的名称，您可以根据需要更改它。

4. 然后按 F5 键运行此代码，在弹出的对话框中，请选择要添加到组合框中的数据源列表，参见截图：

5. 然后点击 确定 按钮，组合框中仅显示唯一值，参见截图：

提示：如果功能区中没有 开发工具 选项卡，这篇文章 如何在 Excel 2007/2010/2013 功能区中显示开发工具选项卡？ 可能对您显示 开发工具 选项卡有所帮助。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！