按条件统计重复次数

APPLE123 · 发表于 2023-6-30 20:56

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

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

ykcbf1100 · 发表于 2023-6-30 21:01

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

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

Sub 重复统计()
arr = Sheets("源数据表").UsedRange
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
s = arr(i, 2) & "|" & arr(i, 4)
If d.exists(s) Then
d(s) = d(s) + 1
Else
d(s) = 1
End If
Next i
ReDim brr(1 To UBound(arr), 1 To 4)
For Each k In d.keys
sp = Split(k, "|")
If d(k) > 1 Then
n = n + 1
brr(n, 1) = n
brr(n, 2) = sp(0)
brr(n, 3) = "'" & sp(1)
brr(n, 4) = d(k)
End If
Next k
Sheets("重复次数统计").Range("F4").Resize(n, 4) = brr
Set d = Nothing
End Sub

复制代码

APPLE123 · 发表于 2023-6-30 21:12

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

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

ykcbf1100 · 发表于 2023-6-30 21:19

附件供参考。。。

gwjkkkkk · 发表于 2023-6-30 22:22

参与一下。。。

APPLE123 · 发表于 2023-7-1 06:55

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

谢谢老师的帮助！

APPLE123 · 发表于 2023-7-1 06:56

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

谢谢老师的帮助！

APPLE123 · 发表于 2023-7-1 06:58

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

谢谢老师帮助

沈默00 · 发表于 2023-7-1 08:04

菜鸟练个手，

		自动登录	找回密码
密码			免费注册

[求助] 按条件统计重复次数

评分

评分

评分

评分