求老师们给修改下删除行的代码，谢谢！

tudarong

借贷相同删行.7z (11.19 KB, 下载次数: 0)

2018-7-18 14:07 上传

点击文件名下载附件

请测试。

1. Sub 去重()
   
2.     Dim Arr, m%, n%, i%
   
3.     Dim Rng  As Range, Rng1 As Range
   
4.     Application.ScreenUpdating = False
   
5.     n = [b65536].End(xlUp).Row
   
6.     m = [a65536].End(xlUp).Row
   
7.     For Each Rng1 In Range("a2:a" & m)
   
8.         For Each Rng In Range("b2:b" & n)
   
9.             If Rng1 <> "" And Rng1 = Rng Then
   
10.                 Rng = "a"
    
11.                 Rng1 = "a"
    
12.                 Exit For
    
13.             End If
    
14.         Next
    
15.     Next
    
16.     For i = 2 To m
    
17.         If Cells(i, 1) = "a" Then
    
18.             Rows(i).Delete shift:=xlUp
    
19.             i = 2
    
20.         End If
    
21.     Next
    
22.         For i = 2 To n
    
23.         If Cells(i, 2) = "a" Then
    
24.             Rows(i).Delete shift:=xlUp
    
25.             i = 2
    
26.         End If
    
27.     Next
    
28.     Application.ScreenUpdating = True
    
29. End Sub

复制代码

xinshou05

老师您很棒，由衷感谢！