只导出身份证号码不同的人员

hhxq001

一个身份证数据表，想只导出不同身份证的人，相同身份证只导出1条，怎么实现呢


身份证导出.rar (22.53 KB, 下载次数: 21)

2024-1-5 09:42 上传

点击文件名下载附件

hhxq001

这样可以：
ActiveSheet.Range("A1:k" & ActiveSheet.Rows.Count).EntireRow.RemoveDuplicates Columns:=3, Header:=xlYes

ykcbf1100

用字典简单。

saghj

1. Sub 按钮1_Click()
   
2.   Dim i&, j&, r&, arr, d, k, brr()
   
3.   arr = Sheet7.[a1].CurrentRegion
   
4.   Set d = CreateObject("scripting.dictionary")
   
5.   For i = 2 To UBound(arr)
   
6.     d(arr(i, 3)) = Application.Index(arr, i, 0)
   
7.   Next i
   
8.   Sheet1.[a2].Resize(d.Count, UBound(arr, 2)) = Application.Rept(d.items, 1)
   
9. End Sub
   

复制代码