如何在 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 能力。立即下載，體驗前所未有的效率！