[已解决]VBA删除重复并不保留唯一

awdrgy1223

望帝春心 发表于 2016-8-3 15:55
举个例子哪几行重复，我眼不太好，告诉第几行跟第几行？

第1行和第138行

望帝春心

awdrgy1223 发表于 2016-8-3 16:18
第1行和第138行

你用等号去等一下这两个单元格，看结果是什么？

望帝春心

awdrgy1223 发表于 2016-8-3 16:18
第1行和第138行

你117行前面的每个单元格内容后面都有一截空白，你自己点点单元格编辑栏看看

awdrgy1223

望帝春心 发表于 2016-8-3 16:23
你用等号去等一下这两个单元格，看结果是什么？

看不懂你说的是什么意思能去掉这些重复吗？

awdrgy1223

望帝春心 发表于 2016-8-3 16:25
你117行前面的每个单元格内容后面都有一截空白，你自己点点单元格编辑栏看看

意思是不能空白吗？

望帝春心

awdrgy1223 发表于 2016-8-3 16:27
意思是不能空白吗？

1. Sub test()
   
2. On Error Resume Next
   
3.     Dim i&
   
4.     For i = 1 To Cells(1, 3).End(4).Row
   
5.         If Application.WorksheetFunction.CountIf(Range(Cells(1, 3), Cells(1, 3).End(4)), Left(Cells(i, 3).Value, 17) & "*") > 1 Then
   
6.             Cells(i, 5) = "=1/0": n = n + 1
   
7.         End If
   
8.     Next
   
9.     If n > 0 Then
   
10.     Columns(5).Select
    
11.     Selection.SpecialCells(xlCellTypeFormulas, 16).Select
    
12.     Selection.EntireRow.Delete
    
13.     Else
    
14.     Exit Sub
    
15.     End If
    
16. End Sub

复制代码

再改了下代码，去掉后面的空白，重复和太多了，最后只有50来行数据。

这儿有肥猫

awdrgy1223 发表于 2016-8-3 16:27
意思是不能空白吗？

很多不可见字符~最方便的就是复制一个替换掉，1秒钟的事情，也可以写VBA替换，比较折腾

望帝春心

awdrgy1223 发表于 2016-8-3 16:27
意思是不能空白吗？

VBA新手，代码执行效率不高，凑合一下吧

awdrgy1223

望帝春心 发表于 2016-8-3 16:34
VBA新手，代码执行效率不高，凑合一下吧

万分感谢！

望帝春心

awdrgy1223 发表于 2016-8-3 16:46
万分感谢！

通过查找替换那段空白为空，原代码也是可以执行的