下面，我从一个简单的例子，来说起如何玩转VBA编程！问题要求一：筛选出表格中产品规格不重复种类问题要求二：并对每个产品规格的重复次数计数方法：用VBA编程实现不重复项统计第一步：进入设计模式，插入按钮，命名为：“统计不重复项”。第二步：选中按钮，点击“右键”，选中“查看代码”，进入VBA编程。第三步：进行VBA编程，实现不重复项统计。（1）定义一个对象d，将对象d设置为字典。Dim d As ObjectSet d = CreateObject("scripting.dictionary")（2）获取产品规格所在B列的有效数据行数。num = ActiveSheet.UsedRange.Rows.count（3）利用For循环对重复的产品规格进行计数，结果以字典的形式保存。For i = 1 To num
d(Cells(i, 2).Value()) = d(Cells(i, 2).Value()) + 1Next（4）定义一个变量count用于计数。Dim countcount = 1（5）利用For循环读取保存在字典中的产品规格和重复计数，并将结果在D列和E列从头开始显示。For Each Key In d.keys()
Cells(count, 4) = Key
Cells(count, 5) = d(Key)
count = count + 1Next以上就是用VBA编程实现不重复项筛选和计数的方法，下面给出具体的代码，供大家交流！最终的效果是这样的：VBA编程就是这么简洁方便，小伙伴们试试吧，你也能轻松搞定Excel的VBA编程！关注我们的公众号“实用办公编程技能”（微信号：Excel-Python），让我们的工作和生活变更更轻松！}