恳请高手师傅们帮忙看下这个要咋删除相同

qiongmei6

我附件希望求得一个程序，就是当我执行的时候，他按b列里如果身份证号是一样的，只保留一个身份证号，另一个删掉，恳请大神们帮忙，谢谢大神们的帮忙

松永

试下这个看行否

松永

试下这个看行否

yynrzwh

excel本身有删除重复值的功能。

qiongmei6

谢谢松永师傅，是我没表达清楚，您这个代码是清除b列，能否改成是删除相同那行，再次谢谢您的帮忙

松永

是这样的吗？

无关岁月

Book1.7z (10.24 KB, 下载次数: 4)

2024-1-10 15:51 上传

点击文件名下载附件

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.1.10
   
2.     Dim arr, d
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     arr = Sheets("Sheet1").UsedRange
   
5.     For i = 2 To UBound(arr)
   
6.         s = CStr(arr(i, 2))
   
7.         If Not d.exists(s) Then
   
8.             d(s) = Application.Index(arr, i)
   
9.         End If
   
10.     Next
    
11.     With Sheets("Sheet2")
    
12.         .UsedRange.Offset(1).Clear
    
13.         .Columns(2).NumberFormatLocal = "@"
    
14.         With .[a2].Resize(d.Count, UBound(arr, 2))
    
15.             .Value = Application.Rept(d.Items, 1)
    
16.             .Borders.LineStyle = 1
    
17.             .HorizontalAlignment = xlCenter
    
18.             .VerticalAlignment = xlCenter
    
19.         End With
    
20.     End With
    
21.     Set d = Nothing
    
22.     MsgBox "OK！"
    
23. End Sub
    

复制代码

ykcbf1100

附件供参考，结果在表2

qiongmei6

谢谢松永师傅，正是我想要的，非常感谢