[已解决]请指教：查找并自动删除重复行！！！！

dsmch

1. Sub Macro1()
   
2. Dim arr, d, rng As Range, i&, p$, j%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = ActiveSheet.UsedRange
   
5. '挑选重复行
   
6. For i = 5 To UBound(arr)
   
7.     p = ""
   
8.     For j = 1 To UBound(arr, 2)
   
9.         p = p & "," & arr(i, j)
   
10.     Next
    
11.     If Not d.exists(p) Then
    
12.         d(p) = ""
    
13.     Else
    
14.         If rng Is Nothing Then Set rng = Cells(i, 1) Else Set rng = Union(rng, Cells(i, 1))
    
15.     End If
    
16. Next
    
17. '前几列名称重复且27、28列为空，挑选17-19三列含1靠前的行
    
18. For j = 19 To 17 Step -1
    
19.     For i = 5 To UBound(arr)
    
20.         If arr(i, 27) = "" And arr(i, 28) = "" And arr(i, j) = 1 Then
    
21.             p = arr(i, 1) & "," & arr(i, 2) & "," & arr(i, 5) & "," & arr(i, 8)
    
22.             If Not d.exists(p) Then
    
23.                 d(p) = i
    
24.             Else
    
25.                 If rng Is Nothing Then Set rng = Cells(i, 1) Else Set rng = Union(rng, Cells(i, 1))
    
26.                 d(p) = i
    
27.             End If
    
28.         End If
    
29.     Next
    
30. Next
    
31. If Not rng Is Nothing Then rng.EntireRow.Delete
    
32. End Sub
    

复制代码

dsmch

………………

tgydslr

学习

問天

学习了      

KDZ

dsmch 发表于 2014-3-3 19:56
………………

   太历害了，老师：十分感谢，感谢您！也感谢这个很好的坛子，有这么好的老师！
       另外老师：我还最后求教救一个问题：我想加一个条件，其它条件不变：即，从理论上讲，当查找删除一个对象其它所有行，仅下剩最高孩次两行时，如果这两行中其中一行的29列为“1”，就删除29列为空的那一条，保留29列为“1”的这一行；如果仅下剩最高孩次两行时29列均为空，就不管他了，随便删除哪一行。您看加一个什么代码？{:011:}真不好意思

1列

5

8

17

18

19

27列

28

29

我的目标： 代码后是否删除

孩次

1孩

2孩

3孩

八

新

黄俊

英林林

1

1

不删除，因为19列为1，表示这个人最高生育3孩，而且29列为1，要保留。

八

新

黄俊

英林林

1

删除，因为19列为1，虽然表示这个人最高生育3孩，但29列为空，要删除。

KDZ

dsmch 发表于 2014-3-3 19:56
………………

老师：我是不是有点异想天开，认为VBA是万能的啊？
    我1万多行的表也确实需要，否则，我还要将我的表先行多项手动，后运行老师的代码才能达到我的目的。思路在运行代码过程中最后清楚 的，还麻烦麻烦麻烦老师！！！！！！！{:011:}{:011:}{:011:}

dsmch

KDZ 发表于 2014-3-5 07:43
老师：我是不是有点异想天开，认为VBA是万能的啊？
    我1万多行的表也确实需要，否则，我还要将我的 ...

可以说无所不能，不过你要理清你的思路。
21楼代码注释已经很清楚了，一重复行删除（比对全部列）；二只要是孩次高的，保留该行，其他孩次低的行全部删除。
请在以上两个要求基础上补充。

KDZ

dsmch 发表于 2014-3-5 14:21
可以说无所不能，不过你要理清你的思路。
21楼代码注释已经很清楚了，一重复行删除（比对全部列）；二只 ...

好的，谢谢老师！！！我来试着看一看，谢谢！！！

KDZ

dsmch 发表于 2014-3-5 14:21
可以说无所不能，不过你要理清你的思路。
21楼代码注释已经很清楚了，一重复行删除（比对全部列）；二只 ...

老师：我 是个菜的，搞半天试着在21楼代码的第20行想加个arr(i, 29) = 1 什么的，半天都不行，头都大了，实在没办法了，
我看了你回复我的帖子最多了，你看这个怎么办？{:011:}{:021:}

KDZ

1[em06]