vba字典重复key_字典去除重复项问题

首先，我像利用字典算法进行去除重复项。

然后，由于清单中“名称”和“型号”都有可能相同，但是“名称”+“型号”是唯一的，所以需要对“名称”+“型号”输入字典，从而去除重复项。

最后问题是，合并过程中“型号”如果是0开头的小数形式，那么合并后0会不见了！(想了很久也搞不清。)

想请问论坛里面的各位老师(大神)，如何解决这个“型号”0消失的问题，在下新手，请不吝赐教，非常感谢！

EXCEL在附件中，表格截图在附件图片中，代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Call 去除重复项 '调用“去除重复项”子过程。

End Sub

Sub 去除重复项()

Dim i&, Myr1&, arr1

Dim d, t, K

Set d = CreateObject("Scripting.Dictionary") '声明字典。

Myr1 = Sheet1.[a65536].End(xlUp).Row '取“入库”的配件名称+型号所在区域，“[k65536].End(xlUp).Row ” K列的非空值最后一行

arr1 = Sheet1.Range("a2:b" & Myr1) '将区域中非空数据写入到数组arr1中。

d.CompareMode = vbBinaryCompare '比较模式设定，区分大小写。

For i = 2 To UBound(arr1)

d(arr1(i, 1) & arr1(i, 2)) = d(arr1(i, 1) & arr1(i, 2)) + 1

'将arr1中第一、二列对应元素合并，形成唯一元素作为字典d的KEY，同时将KEY的item做为计数变量，统计重复出现的KEY次数。

K = d.keys '利用方法keys,导出keys值。

t = d.items '利用方法items,导出items值。

Sheet15.Activate '在另外表Sheet15中进行显示结果。

[a2].Resize(d.Count, 1) = Application.Transpose(K) '数组转置，导出结果

[b2].Resize(d.Count, 1) = Application.Transpose(t) '数组转置，导出结果

[a1].Resize(1, 2) = Array("名称+型号", "重复个数") '输出表头关键字

Set d = Nothing '释放字典

End Sub

无标题.jpg

(96.32 KB, 下载次数: 3)

2019-6-17 14:18 上传

2019-6-17 14:28 上传

点击文件名下载附件

28.42 KB, 下载次数: 31

去除重复项问题

vba字典重复key_字典去除重复项问题相关推荐

linux去除重复字符,Linux去除重复项命令uniq
本篇介绍uniq命令,uniq也是linux管道命令家族中的一员,其主要功能是去除重复项. 在介绍uniq命令之前,我们先来新建在下面的案例中需要用到的文件/tmp/uniq.txt,内容如下默认情 ...
oracle 输出重复记录,ORACLE 去除重复记录
ORACLE 去除重复记录 delete from tbl_talbe where (col1,col2,col3) in (select col1,col2,col3 from tbl_table ...
java数组重复_JAVA数组去除重复数据
一.用List集合实现 int[] str = {5, 6, 6, 6, 8, 8, 7,4}; List list = new ArrayList();for (int i=0; i list.ad ...
oracle查询结果怎么去掉重复的,怎么去除重复的查询结果
如何去除重复的查询结果要求在 emp 表中找出 sal 相同的员工,我是这个写的: select e1.ename, e2.ename, e1.sal from emp e1, emp e2 whe ...
mysql类似于excel的删除重复项_删除重复数据 excel去除重复数据怎么筛选重复数据 excel重复数据合并...
本篇文章主要介绍了"删除重复数据",主要涉及到重复数据方面的内容,对于MySql感兴趣的同学可以参考一下: 最近因为发现数据库中的表有脏数据,需要维护.这些脏数据就是重复数据,需要 ...
linux排列去重复的命令,实例详细说明linux下去除重复行命令uniq
一,uniq干什么用的文本中的重复行,基本上不是我们所要的,所以就要去除掉.linux下有其他命令可以去除重复行,但是我觉得uniq还是比较方便的一个.使用uniq的时候要注意以下二点 1,对文本操 ...
sql按时间取去重最近_SQL 去除重复、获取最新记录
应用中常会有需要去除重复的记录,或者获取某些最新记录(如:每个用户可以答题多次,每次答题时间不同,现在要获取所有用户的最新答题记录,即每个用户取最新的一条) 使用group 和max 即可实现上述功能 ...
数据去重复_字典应用实例（每行每列都要去重复值）
我的目标:让中国的大学生走出校门的那一刻就已经具备这些office技能,让职场人士能高效使用office为其服务.支持我,也为自己加油! 前面两节课中的去重复,不论是单张表里的去重复还是多张表里的去重 ...
c++删除数组中重复元素_在VBA中如何使用动态数组，以及利用动态数组去除重复值的方法...
大家好,我们今日继续讲解VBA数组与字典解决方案第22讲:在VBA中如何使用动态数组,以及利用动态数组去除重复值的方法.如果文本中含有大量的重复值,此时,如果我们要剔除重复值,该怎么办?用VBA的方法 ...

vba字典重复key_字典去除重复项问题

vba字典重复key_字典去除重复项问题相关推荐

最新文章

热门文章