一键删除身份证号重复的

tengyt

一键删除G列G8开始身份证号重复的，并把该行整行删除，保留一行
比如身份证有三个重复，删除身份证所在的行所有数据删除，删除两行保留一行就可以了
数据有成千上万行，谢谢老师帮忙谢谢代码

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim rng As Range
   
5.   Dim d As Object
   
6.   Set d = CreateObject("scripting.dictionary")
   
7.   With Worksheets("sheet1")
   
8.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
9.     Set rng = .Rows(r + 1)
   
10.     arr = .Range("g1:g" & r)
    
11.     For i = 8 To UBound(arr)
    
12.       If Not d.exists(arr(i, 1)) Then
    
13.         d(arr(i, 1)) = ""
    
14.       Else
    
15.         Set rng = Union(rng, .Rows(i))
    
16.       End If
    
17.     Next
    
18.     rng.Delete
    
19.   End With
    
20. End Sub
    

复制代码

chxw68

详见附件。

iwangyi

Sub C()
Set cn = CreateObject("adodb.connection")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "SELECT DISTINCT * FROM [SHEET1$A7:O]"
Range("a1").CurrentRegion.Offset(7).ClearComments
Range("A8").CopyFromRecordset cn.Execute(Sql)
End Sub

iwangyi

请参考*************