关于剔除重复

pureshadow

这个问题曾经被无数个人问，解决的方法也是无数个。
我在这里摆个擂：

征剔除重复的方法。

要求：
1、技巧、函数、VBA不限，但请注明。
2、如果有可能就用图来说明，以方便初学者。

[ 本帖最后由 pureshadow 于 2008-3-24 16:36 编辑 ]

刘青梅

学习

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
    

复制代码

yh0825

但也有局限，因为只能用max或min，比如时间这一列，我就想选重复项的第一个时间，并非max，也不是min值，那如何实现呀，我是菜鸟，不知各位老师有办法吗？

yh0825

以上这些都是一列重复剔除的方法，但实际工作中，往往是有两列数据（或两列以上）都重复，其它列不重复，然后根据需要进行剔除的。
比如附件的例子（从其他网上转来的，VBA方法吧，非我原创，为了便于理解，数据稍微改了下）

joyark

有道理，用数据透视表操作简便快捷

dubutianxia2012

3楼的方法不错
很适合我
简单实用

2001927f

ctrl+f将“查找和替换”调出来，在“替换（p）”中的“查找内容（N）”中输入重复的内容之后先按下“查找全部（I）”后找到你要替换重复部分，然后点击全部替换就可以了，若要是将替换的部分换成空白的，你在“替换为（E）”中不输入内容就可以了啊。
个人认为我的办法最简单！

lxzxmpx

学习学习

pcfearless

为 ：  $