关于剔除重复

xcharmer

我也来一段代码，大家见笑了！
是VBA结合代码实现删除重复的

1. Sub 删除重复()
   
2.   Dim i, j
   
3.     i = 1
   
4.     Do While Trim(Cells(i, 1)) <> ""
   
5.     '进行单循环，和老师讲解的方法不同
   
6.    
   
7.       Cells(i, 2) = Application.WorksheetFunction.CountIf(Range("a:a"), Range("a" & i))
   
8.       '添加一个辅助列，用countif的函数进行重复数量的统计
   
9.       
   
10.       If Cells(i, 2) > 1 Then
    
11.         '如果辅助列的数值大于1，则代表有重复数据，那么删除第一列对应的数据
    
12.         
    
13.       Cells(i, 1).Delete Shift:=xlShiftUp
    
14.       Cells(i, 2).Delete Shift:=xlShiftUp
    
15.       i = i - 1
    
16.         '对I的初始恢复
    
17.         
    
18.       End If
    
19.     i = i + 1
    
20.     Loop
    
21.    
    
22.     Range("b:b").Delete Shift:=xlShiftUp
    
23.     '将辅助列清空
    
24. End Sub
    

复制代码