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

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

在这里插入图片描述

目录


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

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

一. Dictionary方法删除重复项

注:

  1. 必须添加对 MicrosoftScripting Runtime library 的引用；
  2. 本函数中使用了前期绑定（前期绑定能大大提高性能）；
  3. 字典方法在Mac OS系统中不起作用*.*
Function RemoveDupesDict(MyArray As Variant) As
了解本专栏 订阅专栏 解锁全文 超级会员免费看
←か淡定☆ ヾ
关注
专栏目录
订阅专栏
Excel 2010 VBA 入门 113 用自定义函数返回满足条件的所有记录
复行数十步
07-22 1507
目录 例 码 以数组作为返回值的自定义函数 Application. Caller属性 例 在使用公式进行按条件查找时，经常需要返回满足条件的所有记录。然而Excel的大部分查找函数只能返回满足条件的第一个记录。可以自定义一个函数进行条件查找，并返回满足条件的所有记录。例如编写一个结构类似于SUMIF函数的自定义查找函数，使其第1参数为条件区域，第2参数为条件，第3参数为数据区域。使该函数返回参数1中满足参数2作为条件的数据在参数3中对应的区域值。 序号 姓名 性别 ...
EXCEL VBA 删除重复数据
07-12
EXCEL VBA 删除重复数据 宏实现
VBA数组合并，去除数组中的相同项
08-23
VBA简单代码，合并数组，并且去除数组中的相同项！生成新的数组里不包含相同项。
VBA中一维数组去重
最新发布
zhangdabai1的博客
01-06 664
【代码】VBA中一维数组去重。
python中array函数的用法_vb中array函数用法
weixin_39785970的博客
12-10 912
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 3367
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 1万+
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...
Excel-165个VBA自定义函数大全
04-26
### Excel VBA自定义函数大全解析 ...以上仅为部分VBA自定义函数的解析，每个函数都针对Excel中不同的数据处理需求，通过编写和使用这些函数，可以极大地提升数据处理效率和准确性，是Excel高级用户的必备技能之一。
Excel-VBA宏编程实例源代码-排序与查询-忽略重复项进行筛选.zip
12-14
在这个特定的压缩包"Excel-VBA宏编程实例源代码-排序与查询-忽略重复项进行筛选.zip"中，包含的源代码很可能是针对如何在VBA中实现数据的排序和去重功能。以下是对这些知识点的详细解释： 1. **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
一种使用VBA数组去重的思路
qq_42812863的博客
02-13 2215
一种使用VBA数组去重的思路 下面这个表是要去重的部分数据，这次我需要做的是 把数据中的日期提取出来去重 日后计算需要用到 为了能够达到去重的目的，首先要先把日期提取出来，如果只是为了提取日期，那么可以使用format很方便，今天尝试用string写，只是一种尝试，以便以后处理其他数据，代码如下 Sub 时间去重() Application.ScreenUpdating = False '把所...
VBA 如何给数组去重？
奔跑的犀牛先生
12-25 6829
代码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-字典与数组实现去重
oyq的博客
12-05 3280
在实际操作中有太多的数据需要去重仅保留一条记录，在这里自己写了两个函数，测试OK，需要可以自己稍微改动就可以使用啦。 1.两个数据源合并，仅取第一次出现的数据，具体代码如下，因为注释比较详细，在这里就不过多的说明，需要注意一点的是，我这里使用的数据，去重列是第二列，所以我将字典转换成数组时，是将数组的第2列等于字典的key值，为保持数据结构一致，方便循环操作。 '合并去重，将数据源1和数据源2合并去重保存在数组里，arr0是用来指定去重列和保留列，使用时仅限在两个数组结构一致的情况下使用。 Funct
excel函数去重_【Excel VBA】使用字典快速对数据去重
weixin_32090653的博客
03-06 1755
原标题：【Excel VBA】使用字典快速对数据去重数据去重复一直是数据整理过程中常见的问题之一，Excel解决方法有【删除重复项】、【高级筛选】、【数据透视表】、SQL语句、VBA的字典和集合等等……各有所长也各有所短。可能还有小伙伴说还有函数……那啥……坦白说，“去重”一直都是函数最大的硬伤之一，虽然数组公式可以实现，但那些数组公式的适应性、可操作性和运算效率都是渣渣的一匹。说来也是奇怪……绝...
VBA 数组合并 和 用dict 去重数组
奔跑的犀牛先生
02-18 2719
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")...
[VBA]去重汇总
weixin_30872733的博客
07-14 824
问题描述：汇总多个工作表的指定字段到sheet1里面，并去除重复的字段内容。 Sub 去重汇总（） Dim sht As Worksheet, j As Integer, x As Integer Set d = CreateObject("scripting.dictionary") For Each sht In Worksheets If sht.Name <>...
excel去重复
threshold1980的专栏
08-19 672
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
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

打赏作者

←か淡定☆ ヾ

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

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

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

打赏作者

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

抵扣说明：

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

余额充值