随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA添加不重复值到组合框？工具/原料more手机方法/步骤1/5分步阅读

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

2/5

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

3/5

在VBA编辑器中插入模块

4/5

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

Sub按钮1_Click()On Error Resume NextIf Not Sheets(1).ComboBox1 Is Nothing Then Sheets(1).ComboBox1.Clear如果为组合框的数据则清除Dim cell As Range, only As New Collection, i As ByteFor Each cell In Range(, .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个厂商送货”，单击组合框的下拉箭头，可以看到5个厂商的名称，如图

注意事项

智能手机助理给我们的生活带来了极大的便利！