1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub按钮1_Click()On Error Re衡痕贤伎sume NextIf Not Sheets(1).C泠贾高框omboBox1 Is Nothing Then Sheets(1).ComboBox1.Clear'如果为组合框的数据则清除Dim cell As Range, only As New Collection, i As ByteFor Each cell In Range([b3], [b1048576].End(xlUp)) '为变量赋值为B列数据only.Add cell.Value, CStr(cell.Value) '此处加入CStr(cell.Value)即可剔除重复值Next cellOn Error GoTo 0For Each Item In onlySheets(1).ComboBox1.AddItem Item '在组合框中添加不重复项i=i+1 '计数Next ItemSheets(1).ComboBox1="今日有" & i & "个厂商送货" '设置默认值，即显示标题End Sub
5、将按钮改名为“产生不重复厂商列表”（改名与否与程序无关，仅仅为了美观），然后单击按钮，则组合框显示“今日有5个厂商送货”，单击组合框的下拉箭头，可以看到5个厂商的名称，如图
