Excel VBA：如何为从表格取值的ComboBox去除重复值

开发者阿泽

2026-10-1

VBA ComboBox加载表格列时仅显示唯一值的解决方法

报错原因说明

`RemoveDuplicates`是Range对象的专属方法，直接作用于`DataBodyRange.Value`返回的数组会触发类型不匹配；如果直接对原表的`DataBodyRange`调用该方法，会修改原始表格数据，不符合常规使用需求。

方案1：使用字典去重（推荐，性能更好）

采用后期绑定方式，无需提前添加引用，兼容性更强：

Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Data.xlsx") ' 补全路径拼接的反斜杠，避免文件找不到
Set sh = Worksheets("Sheet1")
Set tbl = sh.ListObjects("Table1")

Dim dataArr, item, uniqueDict As Object
Set uniqueDict = CreateObject("Scripting.Dictionary")
' 读取原始列数据
dataArr = tbl.ListColumns(1).DataBodyRange.Value

' 遍历数据存入字典实现去重
For Each item In dataArr
    ' 可自行添加空值过滤逻辑：If Not IsEmpty(item) And Not uniqueDict.exists(item) Then
    If Not uniqueDict.exists(item) Then
        uniqueDict.Add item, True
    End If
Next

' 直接将字典的键集合赋值给ComboBox
ComboBox.List = uniqueDict.keys
Set uniqueDict = Nothing

方案2：使用临时Range调用RemoveDuplicates

如果需要沿用RemoveDuplicates方法，可以借助临时区域处理，不会修改原表数据：

Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Data.xlsx")
Set sh = Worksheets("Sheet1")
Set tbl = sh.ListObjects("Table1")

' 选择表格最右侧的空白列作为临时处理区域
Dim tempCol As Range
Set tempCol = sh.Cells(1, sh.Columns.Count).EntireColumn

' 复制原始数据到临时列
tbl.ListColumns(1).DataBodyRange.Copy tempCol.Cells(1)
' 临时列执行去重
tempCol.RemoveDuplicates Columns:=1, Header:=xlNo

' 读取去重后的数据赋值给ComboBox
ComboBox.List = tempCol.Range("A1:A" & tempCol.Cells(sh.Rows.Count, 1).End(xlUp).Row).Value
' 清理临时列数据
tempCol.Clear