如何在Excel VBA用户窗体ComboBox加载未使用的prbCodes项？

实现思路 #

1. 用字典存储已使用的编码（来自prbList），利用字典的键唯一性实现快速查找，比双重循环效率更高
2. 遍历prbCodes的所有项，仅添加不在字典中的项到ComboBox（ddSelect）

完整代码 #

Private Sub UserForm_Initialize()
    Dim prbCodesRng As Range, prbListRng As Range
    Dim codeCell As Range, listCell As Range
    Dim usedCodes As Object
    
    ' 初始化字典存储已用编码
    Set usedCodes = CreateObject("Scripting.Dictionary")
    
    ' 关联命名区域
    Set prbCodesRng = ThisWorkbook.Names("prbCodes").RefersToRange
    Set prbListRng = ThisWorkbook.Names("prbList").RefersToRange
    
    ' 把prbList中的非空项存入字典（统一大写避免大小写误判）
    For Each listCell In prbListRng
        If listCell.Value <> "" Then
            usedCodes(UCase(listCell.Value)) = True
        End If
    Next listCell
    
    ' 清空ComboBox并加载筛选后的项
    ddSelect.Clear
    For Each codeCell In prbCodesRng
        Dim currentCode As String
        currentCode = UCase(codeCell.Value)
        If Not usedCodes.Exists(currentCode) Then
            ddSelect.AddItem currentCode
        End If
    Next codeCell
    
    ' 释放对象
    Set usedCodes = Nothing
    Set prbCodesRng = Nothing
    Set prbListRng = Nothing
End Sub

关键说明 #

• 字典查找的时间复杂度是O(1)，远优于双重循环的O(n²)，数据量大时优势明显
• UCase函数用于统一编码的大小写，确保A和a被判定为同一编码（如果不需要区分大小写可以保留，反之则去掉）
• 跳过prbList中的空单元格，避免空值干扰筛选逻辑

内容的提问来源于stack exchange，提问作者Phil D