Excel VBA 巧用自定义函数进行数组去重

已于 2022-05-13 13:44:51 修改
阅读量2.2k 收藏 2
点赞数 1
分类专栏： VBA杂坛 文章标签： VBA Excel 二次开发 数组去重 Collection 方法 Dictionaray 方法
于 2022-05-13 13:31:52 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/zglibk/article/details/124743218
版权
本文介绍了两种在Excel VBA中去除数组重复元素的方法：使用Dictionary和Collection。Dictionary方法适用于小到中等规模的数组，而Collection方法在处理大规模数组时表现出色。尽管两者各有特点，如Dictionary在Mac OS中不适用，Collection会将数组转为字符串形式，但它们都能有效地删除重复项。通过调用RemoveDupesDict和RemoveDupesColl函数，用户可以方便地实现数组去重功能。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

在这里插入图片描述

目录


本贴将展示两种从数组中删除重复项的方法。

第一种方法使用字典，第二种方法使用集合。每种方法都有优点和缺点，但都能很好地返回数组中的独特元素。

一. Dictionary方法删除重复项

注:

  1. 必须添加对 MicrosoftScripting Runtime library 的引用；
  2. 本函数中使用了前期绑定（前期绑定能大大提高性能）；
  3. 字典方法在Mac OS系统中不起作用*.*
Function RemoveDupesDict(MyArray As Variant) As
了解本专栏 订阅专栏 解锁全文 超级会员免费看
Excel 2010 VBA 入门 113 用自定义函数返回满足条件的所有记录
复行数十步
07-22 1552
目录 例 码 以数组作为返回值的自定义函数 Application. Caller属性 例 在使用公式进行按条件查找时，经常需要返回满足条件的所有记录。然而Excel的大部分查找函数只能返回满足条件的第一个记录。可以自定义一个函数进行条件查找，并返回满足条件的所有记录。例如编写一个结构类似于SUMIF函数的自定义查找函数，使其第1参数为条件区域，第2参数为条件，第3参数为数据区域。使该函数返回参数1中满足参数2作为条件的数据在参数3中对应的区域值。 序号 姓名 性别 ...
Microsoft VBA Excel 单元格 重复元素 去重
RandPython的博客
03-27 1139
啦啦啦
VBA数组合并，去除数组中的相同项
08-23
VBA简单代码，合并数组，并且去除数组中的相同项！生成新的数组里不包含相同项。
VBA中一维数组去重
zhangdabai1的博客
01-06 773
【代码】VBA中一维数组去重。
python中array函数的用法_vb中array函数用法
weixin_39785970的博客
12-10 942
vb中array函数用法在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。可以创建数值数组(带有数字 ID 键的数组)、关联数组(带有指定的键的数组，每个键关联一个值)、多维数组(包含一个或多个数组的数组)。array(50 25 369 42 23 36 88 127 )表示创建了一个多维数组，数组名为array，在这个数组里包含了50、25、369、42、23、...
vba 去除数组重复数据
weixin_30349597的博客
06-06 3413
Dim intArr() Dim strL As string Dim BB As new Collection for i = LBound(varFileList) To UBound(varFileList) 　　strTemp1 = varFileList(i) 　　strL = Mid(strTemp1, 1, inStr(strTemp1, "-")-1) 　　nL ...
VBA数组去重：用字典的去重的多种方法 + 数组去重方法2种方法
奔跑的犀牛先生
01-08 2万+
1 用字典的方法去重 方法1，用字典去重 dict1(I) = "" 方法2，用字典去重 + 统计次数 dict2(I) = dict2(I) + 1 方法3，用字典报重复，但没去重复 If Not dict3.exists(I) Then Sub test_dict1() Dim dict1 As Object Set dict1 = CreateObject("sc...
VBA数组去重技巧：统计非重复数据个数
在Excel中使用VBA可以创建宏，编写自定义函数，处理数据和用户界面等。 ##### 2. 数组概念 在编程中，数组是一个用于存储一系列数据的数据结构。在VBA中，数组可以是单一数据类型的连续内存空间，也可以是多维的。...
Excel-165个VBA自定义函数大全
04-26
### Excel VBA自定义函数大全解析 ...以上仅为部分VBA自定义函数的解析，每个函数都针对Excel中不同的数据处理需求，通过编写和使用这些函数，可以极大地提升数据处理效率和准确性，是Excel高级用户的必备技能之一。
excel函数去重_【Excel VBA】使用字典快速对数据去重
weixin_32090653的博客
03-06 1817
原标题：【Excel VBA】使用字典快速对数据去重数据去重复一直是数据整理过程中常见的问题之一，Excel解决方法有【删除重复项】、【高级筛选】、【数据透视表】、SQL语句、VBA的字典和集合等等……各有所长也各有所短。可能还有小伙伴说还有函数……那啥……坦白说，“去重”一直都是函数最大的硬伤之一，虽然数组公式可以实现，但那些数组公式的适应性、可操作性和运算效率都是渣渣的一匹。说来也是奇怪……绝...
EXCEL VBA 删除重复数据
07-12
EXCEL VBA 删除重复数据 宏实现
excel字段去重
11-27
Excel 字段去重，比如“12，123，12”，去重后为“12，123”
Excel VBA VBA去重复的几种方法
热门推荐
ChristopherChen的博客
11-29 2万+
VBA去重复典型有两种方法： ① 整数数值型数据，可以直接使用数组下标去重复 ② 通用方法：字典去重复 Sub RecSortTest() arr = Array(5, 4, 2, 1, 5, 8, 7, 2, 7, 9, 3, 6, "22", "23", "221", 22, 23, 221, "a", "z", "c") '测试数组 ' arr = WorksheetFunct
excel去重复
threshold1980的专栏
08-19 709
http://club.excelhome.net/thread-888978-2-1.html 以下是楼主的方法1： Sub 矩形1_Click()     i = Range("A65536").End(xlUp).Row     For s = 1 To i         For ss = i To s + 1 Step -1
一种使用VBA数组去重的思路
qq_42812863的博客
02-13 2273
一种使用VBA数组去重的思路 下面这个表是要去重的部分数据，这次我需要做的是 把数据中的日期提取出来去重 日后计算需要用到 为了能够达到去重的目的，首先要先把日期提取出来，如果只是为了提取日期，那么可以使用format很方便，今天尝试用string写，只是一种尝试，以便以后处理其他数据，代码如下 Sub 时间去重() Application.ScreenUpdating = False '把所...
VBA 如何给数组去重？
奔跑的犀牛先生
12-25 6992
代码1：字典方法 Sub jackma1() arr1 = Array(1, 2, 3, 4, 5, 1, 1, 1, 5) Dim dict1 As Object Set dict1 = CreateObject("scripting.dictionary") '把array的element当做key,赋值item为空 For i = LBound(arr1) ...
VBA单列去重
最新发布
豪情云天博客,分享经典好用代码,和工具,感谢大家的关注和支持!
05-15 539
【代码】VBA单列去重。
VBA-字典与数组实现去重
oyq的博客
12-05 3391
在实际操作中有太多的数据需要去重仅保留一条记录，在这里自己写了两个函数，测试OK，需要可以自己稍微改动就可以使用啦。 1.两个数据源合并，仅取第一次出现的数据，具体代码如下，因为注释比较详细，在这里就不过多的说明，需要注意一点的是，我这里使用的数据，去重列是第二列，所以我将字典转换成数组时，是将数组的第2列等于字典的key值，为保持数据结构一致，方便循环操作。 '合并去重，将数据源1和数据源2合并去重保存在数组里，arr0是用来指定去重列和保留列，使用时仅限在两个数组结构一致的情况下使用。 Funct
VBA 数组合并 和 用dict 去重数组
奔跑的犀牛先生
02-18 2840
Function merge_skill1() Dim dict1 As Object Set dict1 = CreateObject("scripting.dictionary") Dim arr1() Dim arr2() Dim arr3() Dim arr4() 'array1 array2 '先来技能数量和id g20 = Application.Match("技能数量", Worksheets("petbag")...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

←か淡定☆ ヾ

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值