45、VBA字典去重，两种不同的方法在实战中的运用(VBA进阶)

zhezhongyun 2025-07-20 00:00 36 浏览

1、在VBA字典去重的操作中，若程序仅需要使用key值，那么无论采用哪种方法都不会有问题；但如果需要获得对应的item值，就必须根据实际需求选择合适的方法了。学VBA要知其然而知其所以然，不能似懂非懂，所以下面我们针对这两种情况来具体讨论。

2、两种不同的方法写入字典

2-1、我们前面使用过的方法

d.Add “key”,”item”

这种方法只会取第一个，遇重复值会报错。一般在程序开头加 on error resume next

*大的程序在取值结束后还是要加一个on error resume next 0,恢复报错功能

2-2、字典第一节讲过

d(“key”)=”item”

第一节讲过这个属性的作用其实是修改item的值，拓展一下用法：当碰到key重复时，语法接收到的命令是修改item的值。所以它会取消原来的item值用新的值取代。因为key值一致所以感觉像是取最后一个值。所以在程序运行时不会提示出错，也不需要 on error resume next

3、下面就以上两种方法进行举例说明

在质量管理应用中，产品偏差是一定存在的。时间长了就慢慢偏离了最初的原点，导致在不知不觉中产生了不合格品。如何时时刻刻对比产品数值与原点的差异。我们可以用这种方法

3-1、第一种方法（程序）

Sub 第一种方法()
Dim arr()
Dim r
On Error Resume Next
Set d = CreateObject("scripting.dictionary")
'调用字典
r = Sheet1.Cells(Rows.Count, "b").End(xlUp).Row
'取B列最后一个非空单元格行号
arr = Range("b1:c" & r)
For i = 1 To UBound(arr, 1)
d.Add arr(i, 1), arr(i, 2)
Next
[e1].Resize(d.Count) = Application.Transpose(d.keys)
[f1].Resize(d.Count) = Application.Transpose(d.items)
'写成竖向，所以要加Application.Transpose 转置写入
End Sub

3-2、第二种方法（程序）

Sub 第二种方法()
Dim arr()
Dim r
Set d = CreateObject("scripting.dictionary")
r = Sheet1.Cells(Rows.Count, "b").End(xlUp).Row
arr = Range("b1:c" & r)
For i = 1 To UBound(arr, 1)
d(arr(i, 1)) = arr(i, 2)
Next
[i1].Resize(d.Count) = Application.Transpose(d.keys)
[j1].Resize(d.Count) = Application.Transpose(d.items)
End Sub

字典到这里就全部普及完了，由于水平有限，文章中还有漏洞及未提及之处欢迎评论区讨论

你学会了吗？不论你是求知若渴的在校学生，还是在职场摸爬滚打多年的上班族，只要怀揣着提升自我的决心，别犹豫，快点赞、关注、收藏！我会始终站在零基础小白的视角，循序渐进，带你一步步踏入VBA的奇妙世界。

resize 属性

上一篇：Excel VBA学习笔记:合并单元格的相关操作
下一篇：软网推荐:为窗口控制菜单添加扩展控制命令

45、VBA字典去重，两种不同的方法在实战中的运用(VBA进阶)

相关推荐

HTML标签速查手册?别死记硬背了，带你从原理上掌握它!

用node.js实现一个网页爬虫（nodejs爬虫模拟浏览器）

旧手机新玩法，MacroDeck进阶指南

推荐36种免费React模板和主题「干货」

免费领取→可编辑危废标签模板首发!

业余无线电UV段几种常见天线（uv段最强天线）

今年最常见的前端面试题，你会做几道?

GitHub和码云上，7个h5页面制作工具推荐

BarTender10.1条码软件如何制作模板标签

顶级Javaer，常用的 14 个类库