回复：在一个工作表里怎样删除有重复的行？？有实例高手进啊！！！

你的意思是，第1列+第2列=第1列+第2列，或者,第1列+第2列=第2列+第1列,当作是重复的情况吧？
这个操作很麻烦，我试了一下要实现这个没几十行代码做不了，没试了。
不过，我们是不是可以这样做，第3列，第4列，第5列的数据是一样的，再来检查第1列和第2列是否重复？ 代码如下，你试一下，不行你加我QQ 39482788，我不常上论坛。

Sub delete()

Dim i As Integer

Sheets("sheet1").Select

lastrow = [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:=xlSortNormal

For 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 If
Next i
End Sub

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

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

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

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

我试了２的不�

4楼的方法也许只适用于那些重复较少的场合... ,那多的场合咱办还有别的办法吗?

不错，谢谢2楼、19楼!!

A$1:A1指什么区域啊?看不懂,能解释一下吗?

16楼的宏很好用。测试成功。谢谢！

有没有带图的 详细解释一下   那样直观一点 谢了

你想删除什么？汇总两个字吗？我通常的办法是替换。   汇总替换成空白的，这样就没了。

一，排序
二，用EXACT函数查找上下两数是否相同，相同传回TURE，不同传回FALSE，函数要填满整栏。
三，筛选TURE，并将结果是TURE的删除，便是不相同的全部。
上述要在排序后插入一栏空白的来操作（用EXACT函数查找相同项）。

可以再用一次分类汇总啊 不是求和 是计数