提取重复数据统计重复次数并列示重复年份在E列

APPLE123

提取重复数据统计重复次数并列示重复年份在E列

1、全部数据都在“源数据表”，原表有1万多条数据，本例仅模拟一点点数据。
2、“源数据表”姓名和证号大部分不重复，但有少量重复，未排序。
3、关键字为姓名和证号，当姓名和证号两个都一样就是重复，只要有一个不一样，就不是重复。所以本例中赵七因为证号不一样，不算重复。
姓名和证号两个都一样就是重复，算1组重复数据，如
     王五有2个重复，算1组重复数据
      马六有3个重复，也算1组重复数据
      李四有4个重复，也算1组重复数据
      只要属于重复数据，不管有几条记录重复，都算作一组重复数据
     就本例来说，共有3组重复数据9条重复记录。
     一人算一条记录。
4、希望统计姓名和证号都重复数据次数，并将结果在“重复次数统计”这张工作表中。同时将“源数据表”每条重复记录中J列的“年份”集中在“重复次数统计”E列的对应单元格内，每个年份之间使用顿号隔开。结果详见该表。
5、希望将重复数据提取到“提取重复数据”这张工作表中。提取结果详见该表。
6、希望使用VBA一键统计重复次数且提取重复数据。

麻烦老师帮忙看看，谢谢！

gwjkkkkk

源表事项 J 呢？

那时雨

对我上次代码的补充，又加了一个字典存放年份，这样就是双集合，双字典啦！帮助他人，快乐自己！

APPLE123

gwjkkkkk 发表于 2023-7-4 23:43
源表事项 J 呢？

您好！老师“源数据表”J列是“年份”。麻烦老师再看看。

APPLE123

gwjkkkkk 发表于 2023-7-4 23:43
源表事项 J 呢？

“源数据表”J列是“年份”，如图

APPLE123

那时雨 发表于 2023-7-5 01:04
对我上次代码的补充，又加了一个字典存放年份，这样就是双集合，双字典啦！帮助他人，快乐自己！

谢谢老师的帮助！
代码有些不理解，还请帮忙抽空解释一下
如何理解代码中的
Coll.Add .Range("A" & r & ":l" & r), Str
Colls.Add Array(arr(r, 2), arr(r,4)), Str
Dic1(Str) = Coll.Item(Str)(10) & "、" & arr(r, 10)   此外，这里的两个10是否一定要统一
.Cells(r, 2).Resize(1, 2) = Colls.Item(r - Colls.Count)

谢谢老师！

APPLE123

那时雨 发表于 2023-7-5 01:04
对我上次代码的补充，又加了一个字典存放年份，这样就是双集合，双字典啦！帮助他人，快乐自己！

您好！老师，请教一个问题
这个代码就本例测试未发现问题，可是数据稍微多一些，“重复次数统计”这张工作表就会出如下问题：
1、结果不正确，数据少了。
2、数据不是在A4单元格开始，起始位置好像是随着“源数据表”数据的多寡而定
请问该如何修正代码，使得可以获取正确答案，麻烦老师再帮帮忙看看
谢谢！

APPLE123

走过路过的老师，都来看看，该如何解决此题，谢谢1

shiruiqiang

按照1的数值，修改绿框内的数值

那时雨

APPLE123 发表于 2023-7-5 20:39
走过路过的老师，都来看看，该如何解决此题，谢谢1

括号中的改为Num就好了！当时没考虑周全。