如何僅在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。 然後點擊 OK 按鈕，組合框中僅顯示唯一值，請參見屏幕截圖：

尖端：如果沒有 開發者 此功能區中的選項卡 如何在Excel 2007/2010/2013功能區中顯示/顯示開發人員選項卡？ 可能會幫助您顯示“開發人員”標籤。