[已解决]用VBA字典删除重复项所在的行

hui3643616

例子里面有详细说明，还有一个函数返回的问题，二张表

最佳答案

月排行榜 / 总排行榜

grf1973

2017-7-14 11:14

1. Sub 删除()
   
2.     Dim Delrng As Range
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = [a1].CurrentRegion
   
5.     Set Delrng = Rows(65536)
   
6.     For i = 2 To UBound(arr)
   
7.         x = arr(i, 2)
   
8.         If Not d.exists(x) Then d(x) = "" Else Set Delrng = Union(Delrng, Rows(i))
   
9.     Next
   
10.     Delrng.Delete
    
11. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

C列后面有空格，D2公式改成：=VLOOKUP(TRIM(C2),$A$1:$B$2099,2,0)
至于删除重复行再确认一下，重复姓名的是保留一行还是全部删除，保留的话随便保留哪一行都可以吗？

hui3643616

大灰狼1976 发表于 2017-7-13 12:54
C列后面有空格，D2公式改成：=VLOOKUP(TRIM(C2),$A$1:$B$2099,2,0)
至于删除重复行再确认一下，重复姓名的 ...

删除重复的要保留一行，随便删哪行都行，我只要有一行数据就行了
。谢谢

grf1973

1. Sub 删除()
   
2.     Dim Delrng As Range
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = [a1].CurrentRegion
   
5.     Set Delrng = Rows(65536)
   
6.     For i = 2 To UBound(arr)
   
7.         x = arr(i, 2)
   
8.         If Not d.exists(x) Then d(x) = "" Else Set Delrng = Union(Delrng, Rows(i))
   
9.     Next
   
10.     Delrng.Delete
    
11. End Sub

复制代码