关于剔除重复

sl261011

SEE

pcfearless

新手上路说一个a列名称，不重复的放b列
在b2输入index(a:a,match(,countif(b$1:b1,a$1:a$9999),))
或者
数据在b7处INDEX($B$7B$20,SMALL(IF(ROW($B$7B$20)-6=MATCH($B$7B$20,$B$7:$B$20,0),ROW($B$7:$B$20)-6,"0"),ROW(B1)))

pcfearless

为 ：  $

lxzxmpx

学习学习

2001927f

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

dubutianxia2012

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

joyark

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

yh0825

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

yh0825

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

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
    

复制代码