怎样使用VBA添加不重复值到组合框？

首先在开发工具中打开VBA编辑器

在单元格区域当中输入一些内容作为例子

在VBA编辑器中插入模块

在模块当中输入如下代码，然后运行

Sub按钮1_Click()

On Error Resume Next

If Not Sheets(1).ComboBox1 Is Nothing Then Sheets(1).ComboBox1.Clear

'如果为组合框的数据则清除

Dim cell As Range, only As New Collection, i As Byte

For Each cell In Range([b3], [b1048576].End(xlUp))  '为变量赋值为B列数据

only.Add cell.Value, CStr(cell.Value) '此处加入CStr(cell.Value)即可剔除重复值

Next cell

On Error GoTo 0

For Each Item In only

Sheets(1).ComboBox1.AddItem Item '在组合框中添加不重复项

i=i+1                    '计数

Next Item

Sheets(1).ComboBox1="今日有" & i & "个厂商送货"  '设置默认值，即显示标题

End Sub

将按钮改名为“产生不重复厂商列表”（改名与否与程序无关，仅仅为了美观），然后单击按钮，则组合框显示“今日有5个厂商送货”，单击组合框的下拉箭头，可以看到5个厂商的名称，如图