[已解决]名字重复如何只保留一个

nuonuoDshen

这个表格3个人为一户，但是有很多重复的，如何去掉重复的，只保留一户呢？有个棘手的问题是，有的名字重复了，但是家庭住址又不一样，这样的也要删除的，反正重复的只要保留一个就可以了
求大神帮帮忙

最佳答案

月排行榜 / 总排行榜

心正意诚身修

2015-12-24 14:06

=index(b:b,small(if(match($b$2:$b$10,$b$2:$b$10,)=row($a$1:$a$9),row($a$2:$a$10),65536),row(a1:a1)))&""
隨手寫的..至於單元格的引用.在實際工作中可能需要修改..自己看著改..編輯狀態下同時按CTRL+SHIFT+ENTER結束..公式可以直接下拉右拉.

跳转到最佳答案楼层

tzjx200521

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Dim x As Integer, arr, brr()
   
4.     arr = Range("a1:j" & Range("c65536").End(3).Row)
   
5.     For x = 1 To UBound(arr)
   
6.         If Not d.exists(arr(x, 3)) Then
   
7.             k = k + 1
   
8.             ReDim Preserve brr(1 To 10, 1 To k)
   
9.             For y = 1 To 10
   
10.                 brr(y, k) = arr(x, y)
    
11.             Next
    
12.         End If
    
13.     Next
    
14.     Cells.Clear
    
15.     Range("a1").Resize(k, 10) = Application.Transpose(brr)
    
16. End Sub

复制代码

nuonuoDshen

tzjx200521 发表于 2015-12-24 13:10

小白表示看不懂

心正意诚身修

=index(b:b,small(if(match($b$2:$b$10,$b$2:$b$10,)=row($a$1:$a$9),row($a$2:$a$10),65536),row(a1:a1)))&""
隨手寫的..至於單元格的引用.在實際工作中可能需要修改..自己看著改..編輯狀態下同時按CTRL+SHIFT+ENTER結束..公式可以直接下拉右拉.

这儿有肥猫

删除重复项？

tgydslr

去除重复项

tzjx200521

nuonuoDshen 发表于 2015-12-24 13:43
小白表示看不懂

不用看懂  能用就行啊

禾火亦

SYKLGSWYT

janey138

不是可以直接把这几列复制到一个工作表，进行高级筛选不重复项就可以了吗？