返回目录：excel表格制作
进入vba编辑器，双击如图所示，进入ThisWorkbook代码编辑窗口，来复制下面代码
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Integer
i = Application.WorksheetFunction.CountIf(Range("B:B"), Target.Value)
If i > 1 Then Target.Delete xlShiftUp
End Sub
Workbook_SheetChange为工作薄内部事件，当用自户更改工作表中的单元格或者外部链接引起单元格的更改时，产生此事件。参数Target为发生更改的区域。
使用excel内置函数 CountIf 计算知区域中满足给定条件的单元格的个数。delete方法删除刚刚修改的范道围，xlShiftUp指定删除单元格时替补单元格的移位方式为向上。
1、首先在知excel表格中输入一组数据，需要在其中找到重复的数据并保留唯一值。
2、此时可以在B1单元格中输入公式：=IF(COUNTIF(A$1:A1,A1)=1,A1,"")。道
3、然后按内下回车键即可得到公式的计算结果，可以看到此时对应A1显示的数字是“1”。
4、点击B1单元格右下角的绿容色圆点并下拉公式到A列所有需要计算的单元格位置，即可得到不重复的数据显示而重复的数据保留唯一值其余的空置。
将两个Excel表里面相同名字的删掉的具体操作步骤如下：
1、首先打开Excel表选中有重复的数值。
2、然后在Excel表格上方点击“数据”栏目选项。
3、接着在“数据”项copy目下方的菜单栏中点击“删除重复项”选项。
4、然后就会跳出一个对话框，在此对话框中进zhidao行筛选要删除重复项的区域，选择好区域之后单击下方的“确定”选项，然后就可以将重复的删除掉了。
excel中如果直接用删除重复项，删知除重复项后表格实惠统一往上移的，可以用筛选删除就不会移动表格了。
1、电脑打开excel，然后道选中有重复的这一列，
2、选中一列后，点击工具栏中的筛选。专
3、点击筛选后，把重复的数据筛选出来，然后把多余项给删除。
4、删除多余项后，重复数据被删除了，但是单元格属也不会上移。