[已解决]怎样用VBA代码实现自动查找重复行并删除？

qixueli001

如下图所示：


怎样用VBA代码实现自动查找重复行（如图中红色字体所示）并删除？要求是删除重复行，而不是清楚重复内容，留空行。请高手帮帮忙，怎么解决实现，谢谢！
原文件如下：

最佳答案

月排行榜 / 总排行榜

殿堂之上

2013-7-13 17:45

qixueli001 发表于 2013-7-13 16:41
附件如下：

你看下这个，前面敢时间没有测试，这个不会了，只要是整行相同的就删除

跳转到最佳答案楼层

liyh67

觉得用高级筛选来处理挺方便的

hwc2ycy

10也有去重复行的功能。

殿堂之上

Sub 清理重复()
r = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("a2:d" & r)
For i = 1 To r
For j = i + 1 To r
If Cells(i, 1) = Cells(j, 1) Then
Rows(j).Delete
End If
Next
Next
End Sub
你可以试下这个，只以A列来判断

youfang

excel713.rar (11.51 KB, 下载次数: 339)

2013-7-13 14:03 上传

点击文件名下载附件
代码在sheet2工作表，运行即可删除重复行

qixueli001

殿堂之上 发表于 2013-7-13 12:58
Sub 清理重复()
r = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("a2:d" & r)

谢谢你的答案，但可能对我不太适用。我可能要求查找相同的行，而不是某两行的第一列单元格的内容是不是相同。

殿堂之上

qixueli001 发表于 2013-7-13 14:58
谢谢你的答案，但可能对我不太适用。我可能要求查找相同的行，而不是某两行的第一列单元格的内容是不是相 ...

Sub 清理重复() r = Cells(Rows.Count, 1).End(xlUp).Row arr = Range("a2:d" & r) For i = 1 To r For j = i + 1 To r If arr(i,1)=arr(j,1) andand arr(i,2)=arr(j,2) and arr(i,3)=arr(j,3) and  arr(i,4)=arr(j,4) andThen Rows(j).Delete End If Next Next End Sub

qixueli001

youfang 发表于 2013-7-13 14:04
代码在sheet2工作表，运行即可删除重复行

非常感谢你的帮忙，但是我还是有问题，需要你帮忙改一下。我给你的数据的A列没有数字相同的，我修改了一下数据，有几个A列数字是相同的，这个方法就不适用了。另外，我想如果判断出有相同行了，删除的时候能制定删除范围，譬如：Ai：Di。
麻烦你了，谢谢！
附件如下：

qixueli001

殿堂之上 发表于 2013-7-13 15:36

谢谢，还是有问题。
首先，程序了多了两个and
其次，运行程序时提示“下标越界”
再次，删除时希望能指定范围，譬如第i行重复了，就删除Ai：Di。
附件如下，希望完成效果如下图：

qixueli001

殿堂之上 发表于 2013-7-13 15:36

附件如下：