去重不干净

512008404

参与一下！

xing_chen

512008404 发表于 2023-7-22 22:57
参与一下！

谢谢老师！你考虑的真周全。我是03版的，按你的意思修改了但还是有问题。可以再次出手吗?

xing_chen

512008404 发表于 2023-7-22 22:57
参与一下！

抱歉！花在旅途到时献上

xing_chen

xing_chen 发表于 2023-7-23 00:57
抱歉！花在旅途到时献上

有老师解答吗！

xing_chen

有重复的单元格，若右列有简码，则保留1个有简码的单元格。其它的去重保留任意1个。

512008404

xing_chen 发表于 2023-7-23 00:56
谢谢老师！你考虑的真周全。我是03版的，按你的意思修改了但还是有问题。可以再次出手吗?

您找到了问题点，但是修改后还有个小问题。改了一个通用版本，请再试试！

titi012

我是新手，学习一下
楼主的代码去重不干净，问题在于： 删除了当前行后，下一行就变成了当前行，下一个循环 i 则会从下一行判断，所以就漏了前一行没有判断。
解决方法，一个是把循环改为从下向上，另一个还是从上向下循环，加一个已删除数量 N, 判断 i -N 行号，这样也能解决问题。
从运算速度来说，这两个不停的删除行，运行比较慢，我用一万行数据试了一下，这两个方法都要30秒左右，差不多。要快一点的话，可以先判断，把不重复数据写入数组，然后全部清除，重新写入数据。

titi012

以一万行测试，第一、二种都要30秒上下，第三种则不到0.1秒。

1. Sub 去重1()
   
2. 
   
3. timA = Timer
   
4. Sheets("名称").Select
   
5. R = [a65536].End(xlUp).Row
   
6. N = 0
   
7. For i = 2 To R Step 1
   
8.     If WorksheetFunction.CountIf(Columns(1), Cells(i - N, 1)) > 1 Then
   
9.         Rows(i - N).Delete
   
10.         N = N + 1
    
11.     End If
    
12. Next
    
13. MsgBox (Timer - timA)
    
14. 
    
15. End Sub

复制代码

1. Sub 去重2()
   
2. 
   
3. timA = Timer
   
4. Sheets("名称").Select
   
5. R = [a65536].End(xlUp).Row
   
6. For i = R To 2 Step -1
   
7.     If WorksheetFunction.CountIf(Columns(1), Cells(i, 1)) > 1 Then
   
8.         Rows(i).Delete
   
9.     End If
   
10. Next
    
11. MsgBox (Timer - timA)
    
12. 
    
13. End Sub

复制代码

1. Sub 去重3()
   
2. 
   
3. Dim i%, N%, R%, S() As String, V
   
4. timA = Timer
   
5. 
   
6. Sheets("名称").Select
   
7. R = [a65536].End(xlUp).Row
   
8. Range("A2:A" & R).Sort KEY1:=[A2], Order1:=1, Header:=xlNo
   
9. V = Range("A2:A" & R + 1).Value
   
10. ReDim S(1 To R)
    
11. For i = 1 To R - 1 Step 1
    
12.     If V(i, 1) <> V(i + 1, 1) Then
    
13.         N = N + 1
    
14.         S(N) = V(i, 1)
    
15.     End If
    
16. Next
    
17. Range("A2:A" & R).ClearContents
    
18. Range("A2").Resize(R, 1) = Application.Transpose(S)
    
19. MsgBox ("共用时" & Timer - timA)
    
20. 
    
21. End Sub

复制代码

xing_chen

512008404 发表于 2023-7-23 16:00
您找到了问题点，但是修改后还有个小问题。改了一个通用版本，请再试试！

谢谢老师！问题还是未解决。让你费心了。

xing_chen

titi012 发表于 2023-7-24 11:29
以一万行测试，第一、二种都要30秒上下，第三种则不到0.1秒。

谢谢老师！运行如愿，若方便话，是否可以将此问题再深入，即按条件去重，保留右列有简码的单元格，无简码的单元俄国删除；其它单元格若右边无简码，则去重时任意保留1个