如下我要将下面的有重复的字符删除，如果用查找一个一个删除太慢，有没有较好的方法啊，谢谢各位了，急急！！！031111B01P 汇总031120B20P 汇总031111B01P 汇总040918B01P 汇总040918B04P 汇总040316B55P 汇总050125B34P 汇总021122B41P 汇总050125B34P 汇总030106B11P 汇总030116B01P 汇总040520B05P 汇总030106B11P 汇总030106B11P 汇总030803B07P 汇总031025B02P 汇总041126B01P 汇总041207B10P 汇总041207B10P 汇总031025B02P 汇总030812B01P 汇总041117B39P 汇总041119B06P 汇总041119B06P 汇总030803B07P 汇总030803B08P 汇总030812B01P 汇总031025B01P 汇总031025B02P 汇总

例如你上面的数据是在A列里,那请在B列里输入如下公式:=IF(COUNTIF(A$1:A1,A1)<2,COUNTIF(A$1:A1,A1),"")然后一直拉到最后,或是选定B1单元格后,双击B1单元格右下角的黑点使其自动填充,然后再把A,B两列按B列排序,最后了,在排序后,下方B列为空的就是有重复的数据了,现在你喜欢怎么对待它们就随你便了.(*^-^*)

真的可以吗?明天我试试

选中所有数据,用高级筛选,里面有选择不重复记录,筛选出来放到另外一个区域就可以了

4楼的方法也许只适用于那些重复较少的场合...

zsh-000,我试了但显示的公式有误呀???

是你复制错误了吧，公式是对的

显示的是公式缺少括呀…你再看看"("多,")"个少呀!

没错,是你数错了吧?

你向")"方向的只有一个啊,你可不可以将事例发到我邮件上呀,我邮址:[email protected] 谢谢!

不知道那里不对,你的邮箱发不出去.

你这个是分类汇总后出来的结果。分类汇总前先将要分类的字段排排序，就很顺畅了。先排序，再分类汇总。OK。

我邮址没写错呀,你再试下,或将它发到"[email protected]也行,谢谢了!

我想保留每个重复数据的最后一条，怎么弄啊高手们？？？

我有问题问各位高手,我的数据是这样的例如:王 李 9 13 14 赵 李 12 12 13刘 赵 10 12 10李 赵 12 12 13李 王 9 13 14------请问怎么才能将重复的行删除,如李,王和王李两行为重复,数据非常多,靠排序是没有办法一目了然的,高手,请多多指教----------

你的意思是，第1列+第2列=第1列+第2列，或者,第1列+第2列=第2列+第1列,当作是重复的情况吧？这个操作很麻烦，我试了一下要实现这个没几十行代码做不了，没试了。不过，我们是不是可以这样做，第3列，第4列，第5列的数据是一样的，再来检查第1列和第2列是否重复？ 代码如下，你试一下，不行你加我QQ 39482788，我不常上论坛。Sub delete()Dim i As IntegerSheets("sheet1").Selectlastrow = [A65536].End(xlUp).Row Columns("A:E").Select Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormalFor i = 1 To lastrow If Cells(i, 3) = Cells(i + 1, 3) And Cells(i, 4) = Cells(i + 1, 4) And Cells(i, 5) = Cells(i + 1, 5) Then If Cells(i, 1) = Cells(i + 1, 1) And Cells(i, 2) = Cells(i + 1, 2) Then Range(Cells(i + 1, 1), Cells(i + 1, 5)).Select Selection.delete '如果数据量非常大，采用.delete执行效率可能会比较低，那你就考虑用.clearcontents吧 Else If Cells(i, 1) = Cells(i + 1, 2) And Cells(i, 2) = Cells(i + 1, 1) Then Range(Cells(i + 1, 1), Cells(i + 1, 5)).Select Selection.delete End If End If End IfNext iEnd Sub

楼主的意思我还不大看懂..

嘎嘎，终于找到了个删除重复行的软件 ，哈哈，不告诉你们，自己再做个去吧

我习惯使用vlookup来处理这样的事情!B2=VLOOKUP(A2,A$1:A1,1,0),向下填充即可!我在群7987867中放了一个实例,有兴趣的可以去下载来看看!

2楼和19楼的方法妙！用活了区域引用，排除了不必要的重复干扰。前者把重复数据描述为空，后者把重复数据明确显示出来，通过排序删除重复行。佩服！^-^