请问如何快速删除重复行，是都删除，不保留

kaoqin

函数或者VBA都行，在线等，谢谢老师！
如：
A      B
1      2
2      3
3      5
3      5
4      6

删除后：
A      B
1      2
2      3

4      6

kaoqin

帖子格式有误，2-3和4-6之间没有空行，是连续的

笑着...两年过去

1. 发个附件过来看看

复制代码

kaoqin

请看附件，谢谢！

kaoqin

笑着...两年过去 发表于 2015-3-8 12:10

附件已发，请老师指导。谢谢！

笑着...两年过去

1. Sub test()
   
2.     For i = 2 To 9
   
3.         Cells(i, 4) = Application.CountIf([c2:c9], Cells(i, 3))
   
4.     Next
   
5.     For i = 9 To 2 Step -1
   
6.         If Cells(i, 4) > 1 Then Rows(i).Delete
   
7.     Next
   
8.     [d:d].ClearContents
   
9. End Sub
   

复制代码

笑着...两年过去

新建 WinRAR 压缩文件.rar (13.14 KB, 下载次数: 192)

2015-3-8 12:47 上传

点击文件名下载附件

kaoqin

谢谢老师指导，这个方法有简单又快捷！太棒了！

依然潇潇

A12=INDEX(A$1:A$10,SMALL(IF(COUNTIF($B$2:$B$9,$B$2:$B$9)=1,ROW($2:$9),10),ROW(A1)))&""

刀羊

方法1：
条件格式，标注重复，筛选重复，删除

方法2：
D2=COUNTIF(B2,B:B) ，下拉公式，按D列排序