随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA添加不重复值到组合框？
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub按钮1_Click()OnErrorRe衡痕贤伎sumeNextIfNotSheets(1).C泠贾高框omboBox1IsNothingThenSheets(1).ComboBox1.Clear'如果为组合框的数据则清除DimcellAsRange,onlyAsNewCollection,iAsByteForEachcellInRange([b3],[b1048576].End(xlUp))'为变量赋值为B列数据only.Addcell.Value,CStr(cell.Value)'此处加入CStr(cell.Value)即可剔除重复值NextcellOnErrorGoTo0ForEachItemInonlySheets(1).ComboBox1.AddItemItem'在组合框中添加不重复项i=i+1'计数NextItemSheets(1).ComboBox1="今日有"&i&"个厂商送货"'设置默认值，即显示标题EndSub
5、将按钮改名为“产生不重复厂商列表”（改名与否与程序无关，仅仅为了美观），然后单略居承柘击按钮，则组合框显示“今日有5个厂商送货”，单击组合框的下拉箭头，可以看到5个厂商的名称，如图
