仅统计姓名重复次数并分别列示

APPLE123

仅统计姓名重复次数并分别列示
1、全部数据都在“源数据表”，原表有1万多条数据，本例仅模拟一点点数据。
2、“源数据表”姓名大部分不重复，但有少量重复，未排序。
3、为学习用，不考虑证号重复。
4、希望统计姓名的重复数据次数，并将结果分别列示在“统计重复2次以上的数据”和“不重复数据列示”这2张工作表中。结果详见这两表.
5、希望使用VBA一键统计。
麻烦老师帮忙看看，谢谢！

shiruiqiang

APPLE123

tomxie 发表于 2023-7-2 16:23
你不知道用SQL会多么简单

麻烦老师帮忙看看，谢谢

APPLE123

shiruiqiang 发表于 2023-7-2 16:58

谢谢老师，有发附件吗？

吴中泉

APPLE123 发表于 2023-7-2 18:05
谢谢老师，有发附件吗？

吴中泉

吴中泉 发表于 2023-7-2 19:24

仅统计姓名重复次数并分别列示.zip (24.77 KB, 下载次数: 13)

2023-7-2 19:25 上传

点击文件名下载附件

limonet

代码审核中。

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
    Sheet2.Range("B3").CopyFromRecordset Cn.Execute("select 姓名,count(*) from [源数据表$] group by 姓名 having count(*)>=2")
    Sheet3.Range("B4").CopyFromRecordset Cn.Execute("select * from(select 姓名,first(证号) as 证号,count(*) from [源数据表$] group by 姓名 having count(*)=1) order by 证号")
End Sub

chxw68

还是练手。