作者：乔山办公网日期：
返回目录：office365
删除有两种版本
OFFICE2007
首先选择需要删除重复项的所有单元格。如果是要对所有数据进行这一操作，可以任意选择一个单元格。
在工具栏中选择“数据”选项卡，再单击“排序与筛选”区中的“删除重复项”按钮。
在弹出的“删除重复项”对话框选择要检查的字段，最终将只对选中的字段进行比较。这里选择后三个字段。
最后单击“确定”按钮，多余的重复项就被删除了。
OFFICE2003
一、在Excel以前的版本中，可以通过“高级筛选”来删除重复记录
点击数据-高级筛选，选择“不重复记录”将数据复制到目标区域就好
二、
步骤如下：
“工具”->“宏”->“Visual Basic编辑器”，在打开的VB编辑器中左侧有“工程”窗口，在这里的“模块”上点右键，“插入”->“模块”，此时，生成了“模块1”，双击“模块1”，在打开的窗口里写入需要的宏代e68a84e8a2ad7a686964616f339码。要实现你所需要的功能的宏代码我已经为你写好，代码如下：
Sub sub1()
ActiveCell.SpecialCells(xlLastCell).Select
datarows = Selection.Row
If datarows <> 1 Then
For I = 1 To datarows
If Range("A" & CStr(I)) & Range("B" & CStr(I)) & Range("C" & CStr(I)) & Range("D" & CStr(I)) <> "" Then
j = datarows
Do While j > I
If Range("A" & CStr(I)) = Range("A" & CStr(j)) And Range("B" & CStr(I)) = Range("B" & CStr(j)) And Range("C" & CStr(I)) = Range("C" & CStr(j)) And Range("D" & CStr(I)) = Range("D" & CStr(j)) Then
Rows(j).Delete Shift:=xlUp
datarows = datarows - 1
End If
j = j - 1
Loop
End If
Next I
End If
End Sub
代码写好了，关闭VB编辑器。只要运行该宏就可以实现删除重复的项目的操作。“工具”->“宏” ->“宏”，选中“sub1”，点执行。
这段代码实现了如下功能：查找A列B列C列D列都相同的数据（区分大小写）并删除至只剩一行（即无重复），考虑到你可能使用空行来使数据更具结构性，因此，这里设置了不删除空行。由于宏操作不可撤消，请在使用该宏前备份数据。
在A2中输入公式
=IF(COUNTIF($A$1:A1,A1)=1,A1,"")
右拖填充。
如数据百在A2：A100，在B2中输入公式：=INDEX(A$2：A$100，MATCH(,COUNTIF(B$1：B1，A$2：A$100),))&"" , 同时按度下ENTER键，SHIFT键，和CTRL键，公式问下答拉。（注意！公式下拉时回，不要拉太远答，太远了，速度肯定慢，）
如图，在A列中输入身份证号，要求重复输入的有错误百提示。操作步骤是：
1、选取A列，点击“数据”、“数据有效度性”知。
2、在“数据有效性”对话框中，“设置”选项卡下，“允许”选“自定义”，“公式”中输入
=COUNTIF(A:A,A1&"*")=1
再点击道“出错警告”选项内卡，在“错误信息”下输入如“身份证号重复！请重新输入。”
这容样，当输入的身份证号有重复时就会提示。