第1个回答 2012-11-30
07版有去重复功能，直接用去重复功能即可
03版的就用高级筛选，先选中含有重复数据的列，然后选择：数据——筛选——高级筛选 在出来的对话框中勾上“选择不重复的记录”点击确定即可，如果你要将筛选出的结果复制到其它位置则在对话框上方选“将筛选结果复制到其它位置”
再有就是用函数解决，不过与上边的方法相比有点麻烦，函数需要添加一列辅助列来实现，例如你重复数据在A列，则添加一列辅助列，B列
然后在B1中输入是“=IF(COUNTIF(A:A,A1)>1,1,"")”然后向下拉，将显示为1的单元格筛选出来进行删除即可。
第2个回答 2012-11-30
假设数据在A列,
在B2单元格输入公式
=countif(A:A,A2)>1
下拉填充
然后筛选B列中数据为TRUE的行,选择删除
第3个回答 2012-11-30
请加一列如B列，在B1输入公式：
=countif(a:a,A1)
下拉，将结果1的全部删除即可。
第4个回答 2012-11-30
输入下列代码
Sub 删除相同行()
Dim x As Integer
Do
x = x + 1
If Cells(x, 1) = Cells(x + 1, 1) Then
Cells(x + 1, 1).Delete
Exit Do
End If
Loop Until x = 5
end sub
点运行
第5个回答 2012-11-30
这个没有比较快的编程说能一步全部删除的，不过你可以用数据筛选，把相同的选项都显示出来，然后删掉重复的