VBA用户窗体单列ComboBox合并两表列数据并去重问题

你可以通过字典对象来实现需求，字典的键具有唯一性，能自动完成去重，同时避免Union或单独AddItem的局限性。以下是可直接使用的代码，放置在用户窗体的Initialize事件中：

完整代码（后期绑定，无需额外引用） #

Private Sub UserForm_Initialize()
    Dim dict As Object
    Dim ws As Worksheet
    Dim tblNames As ListObject, tblFamilies As ListObject
    Dim cell As Range
    
    ' 创建字典用于存储唯一值
    Set dict = CreateObject("Scripting.Dictionary")
    dict.CompareMode = vbTextCompare ' 不区分大小写，如需区分可改为vbBinaryCompare
    
    ' 指向目标工作表和表格
    Set ws = ThisWorkbook.Sheets("Sheet2")
    Set tblNames = ws.ListObjects("Names")
    Set tblFamilies = ws.ListObjects("Families")
    
    ' 遍历Names表第1列，添加非空唯一值到字典
    If Not tblNames.DataBodyRange Is Nothing Then
        For Each cell In tblNames.ListColumns(1).DataBodyRange
            If Not IsEmpty(cell.Value) And Not dict.Exists(cell.Value) Then
                dict.Add cell.Value, cell.Value
            End If
        Next cell
    End If
    
    ' 遍历Families表第1列，添加非空唯一值到字典
    If Not tblFamilies.DataBodyRange Is Nothing Then
        For Each cell In tblFamilies.ListColumns(1).DataBodyRange
            If Not IsEmpty(cell.Value) And Not dict.Exists(cell.Value) Then
                dict.Add cell.Value, cell.Value
            End If
        Next cell
    End If
    
    ' 将字典的唯一值赋值给ComboBox
    If dict.Count > 0 Then
        Me.Numbers.List = dict.Keys
    End If
    
    ' 释放对象
    Set dict = Nothing
    Set tblNames = Nothing
    Set tblFamilies = Nothing
    Set ws = Nothing
End Sub

代码说明 #

1. 字典去重：利用字典的键不可重复特性，自动过滤两个表中的重复值，同时保留工作表原数据的重复项。
2. 空表判断：添加If Not ... DataBodyRange Is Nothing判断，避免表格无数据行时触发错误。
3. 灵活大小写设置：dict.CompareMode可按需调整，vbTextCompare不区分大小写，vbBinaryCompare区分大小写。

为什么之前的方法失效？ #

• UnionRange方法：当两个区域不连续时，ComboBox.List仅会读取第一个连续区域的数据，后续区域会被忽略。
• 单独AddItem方法：大概率是未处理空值或重复值，或是其中一个表格无数据行导致循环未执行，也可能是代码隐藏了错误（如未开启错误捕获），导致第二个循环未运行。

内容的提问来源于stack exchange，提问作者shahin syr