作者:乔山办公网日期:
返回目录:excel表格制作
假如你的数据在A列。第一个工作抄表名称是sheet1
1、摁下alt+F11,进入VBA编辑器袭。
2、在左上角的工程资源管理器百里面双击sheet1(sheet1),在右侧的度代码区粘贴如下代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
For i = 1 To Range("a65536").End(xlUp).Row - 1
If Range("a" & i) = Target And Range("a" & i) <> "" Then
Range("a" & i).ClearContents
End If
Next
End If
End Sub
3、关闭VBA编辑器,保存EXCEL文件。问答
4、在A列输入数据试试。
5、说明:
如果你的数据在B列,把代码
If Target.Column = 1 Then改成
If Target.Column = 2 Then
把所有的"a"改成"b"
操作步骤如下:
1.原始数据,删除A列重复的数据所在的行
2.选中A列,然后选择数据,删除重复项
3.选择扩展选定区域
4.只勾选A列
5.删除完成:
工具:excel 2007
现状:ABCD4列数据,其中抄A列数据有重复值,数据从第二行开始
目标:删除A列有重复的整行数据
方法:用公式找出A列重复项,加以标记,通过筛选统一手工删除重复的整行
步骤:
标记重复行袭
E2输入 =if(countif(a$2:a2,a2)>1,"重复","")
公式下拉复制填充
所有A列重复的行全部在E列标识
2.重复行排序到一起,手工删除
选定数据区域>开始>排序与筛选>自定义排序>弹出选项框zd
主要关键字>列E>确定
确定后,E列带有“重复”的行排到一起,手工删除
3.处理前后对比效果
在EXCEL中快速地删除重复值行复,并保留重复的一行数据,可使用删除重复项工制具实现。
方法步骤如下:
1、打开需要操作的EXCEL表格,选中需要删除重复项百的单元格区域,在数据工具栏中找度到并点击“删除重复项”。
2、自弹出的警告中选择“扩展选定区域”,然后点击“删除重复项”。
3、选择“全选问”然后点击下面的确定按钮即可。
4、返回EXCEL表格,可发现已成功删除重复项的整行数据,仅保留一行答数据。