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

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

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进阶)

相关推荐

漏洞系列一一看我一招征服漏洞 SSRF

Web前端需要学什么?Web前端开发需要学习哪些?

接口测试遇到500报错?别慌，你的头部可能有点问题

前端Flex布局可视化布局工具介绍，vue和html5快速设计利器

「资讯」为强迫用户使用Edge浏览器，微软又出新招数

HTML 简介（html简介及优缺点）

HBuilderX，uni-app创建HTML5项目，同时支持浏览器和移动端

现在页面实时聊天都使用Websocket技术实现吗?

关于HTML5被简称做H5，你怎么看?（html5缩写）

在SpringBoot+Vue3项目中通过Nginx代理WebSocket实现跨域通信