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

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

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

3、在VBA编辑器中插入模块

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

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个厂商送货”，单击组合框的下拉箭头，可以看到5个厂商的名称，如图