按条件统计重复次数

APPLE123

按条件统计重复次数
1、全部数据都在“源数据表”，原表有1万多条数据，本例仅模拟一点点数据。
2、“源数据表”姓名和证号大部分不重复，但有少量重复，未排序。
3、关键字为姓名和证号，当姓名和证号两个都一样就是重复，只要有一个不一样，就不是重复。所以本例中赵七因为证号不一样，不算重复。
4、希望统计姓名和证号都重复数据次数，并将结果在“重复次数统计”这张工作表中。姓名和证号都不重复或仅有一项重复的无需统计，结果详见该表。
5、希望使用VBA一键统计。


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

ykcbf1100

似曾相识啊，这个题目以前是不是做过了？

yynrzwh

1. Sub 重复统计()
   
2. 
   
3. arr = Sheets("源数据表").UsedRange
   
4. Set d = CreateObject("scripting.dictionary")
   
5. 
   
6.     For i = 2 To UBound(arr)
   
7.         s = arr(i, 2) & "|" & arr(i, 4)
   
8.         If d.exists(s) Then
   
9.             d(s) = d(s) + 1
   
10.         Else
    
11.             d(s) = 1
    
12.         End If
    
13.     Next i
    
14.    
    
15. ReDim brr(1 To UBound(arr), 1 To 4)
    
16.     For Each k In d.keys
    
17.         sp = Split(k, "|")
    
18.         If d(k) > 1 Then
    
19.            n = n + 1
    
20.            brr(n, 1) = n
    
21.            brr(n, 2) = sp(0)
    
22.            brr(n, 3) = "'" & sp(1)
    
23.            brr(n, 4) = d(k)
    
24.         End If
    
25.     Next k
    
26. Sheets("重复次数统计").Range("F4").Resize(n, 4) = brr
    
27. Set d = Nothing
    
28. End Sub
    

复制代码

APPLE123

ykcbf1100 发表于 2023-6-30 21:01
似曾相识啊，这个题目以前是不是做过了？

老师好记性!
前2天请教过老师并得到老师的帮助，再次谢谢老师！
但是今天的诉求有些变化，与上次略有不同，麻烦老师再帮帮忙，谢谢！

ykcbf1100

附件供参考。。。

gwjkkkkk

参与一下。。。

APPLE123

yynrzwh 发表于 2023-6-30 21:12

谢谢老师的帮助！

APPLE123

ykcbf1100 发表于 2023-6-30 21:19
附件供参考。。。

谢谢老师的帮助！

APPLE123

gwjkkkkk 发表于 2023-6-30 22:22
参与一下。。。

谢谢老师帮助

沈默00

菜鸟练个手，