vba字典重复key_轻松搞定Excel的VBA编程

小伙伴们，Excel的VBA编程用过吗？VBA编程其实非常简洁，如果小伙伴们掌握了，不再觉得会VBA编程是什么高深的技能！今天，晓白来和大家一起揭开VBA编程的神秘面纱，一起来get这项技能：VBA编程。下面，我从一个简单的例子，来说起如何玩转VBA编程！ 问题：筛选不重复项，并对重复项进行计数 问题要求一： 筛选出表格中产品规格不重复种类 问题要求二： 并对每个产品规格的重复次数计数

方法：用VBA编程实现不重复项统计 第一步：进入设计模式，插入按钮，命名为：“统计不重复项”。

第二步：选中按钮，点击“右键”，选中“查看代码”，进入VBA编程。

第三步：进行VBA编程，实现不重复项统计。 (1)定义一个对象d，将对象d设置为字典。 Dim d As Object Set 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()) + 1 Next (4)定义一个变量count用于计数。 Dim count count = 1 (5)利用For循环读取保存在字典中的产品规格和重复计数，并将结果在D列和E列从头开始显示。 For Each Key In d.keys()     Cells(count, 4) = Key     Cells(count, 5) = d(Key)     count = count + 1 Next 以上就是用VBA编程实现不重复项筛选和计数的方法，下面给出具体的代码，供大家交流！

最终的效果是这样的：

VBA编程就是这么简洁方便，小伙伴们试试吧，你也能轻松搞定Excel的VBA编程！

关注我们的公众号“实用办公编程技能”(微信号：Excel-Python)，让我们的工作和生活变更更轻松！