在Excel中查找和删除重复值技巧(2)
在Excel中查找和删除重复值技巧(2)
2.可以看到所有重复的姓名都用浅红色标记出来。选择一个姓名,右击鼠标,在弹出的菜单中选择“排序→升序”,使重复的姓名排在一起。
3.选择一个重复的姓名,再次单击鼠标右键,选择“排序→将所选单元格颜色放在最前面”,Excel将把重复的姓名自动排在最上面以便查看。
方法五:用Excel 2007中的“删除重复项”功能
选择A2:A21区域,单击功能区“数据→删除重复项”,在“删除重复项”对话框中单击“确定”。
Excel 2007自动将重复值删除,并给出提示。
方法六:用VBA
这两段VBA代码分别运用了Scripting.Dictionary和Collection对象,并利用了其元素具有唯一性的特点。
1.用Scripting.Dictionary对象:
Sub Uniquedata()
Dim Cel As Range, Res
'创建对象
Set d = CreateObject("Scripting.Dictionary")
'遍历数据区域的单元格
For Each Cel In Range("A2:A21")
'判断单元格内容是否为空
If Cel <> "" Then
'如果字典对象中不包含同样的对象就添加该对象
If Not d.exists(Cel.Value) Then d.Add Cel.Value, Cel.Value
End If
Next
Res = d.Items
'将对象中的元素写入工作表
For i = 0 To d.Count - 1
Cells(i + 2, 3) = Res(i)
Next i
End Sub
2.用Collection对象:
Sub Uniquedata1()
Dim myList As New Collection, Cel As Range, itm, i As Integer
On Error Resume Next
'遍历数据区域的单元格
For Each Cel In Range("A2:A21")
'判断单元格内容是否为空
If Cel <> "" Then myList.Add Cel.Value, CStr(Cel.Value)
Next
On Error GoTo 0
i = 1
'将非重复值写入工作表
For Each itm In myList
Cells(i + 1, 3) = itm
i = i + 1
Next
End Sub
来源:excel技巧天地
相关内容
excel一次性删除所有的重复数据
excel一次性删除所有的重复数据,重复数据,删除,一次性,重复,...
excel使用“视图管理器”简化重复的筛选操作
excel使用“视图管理器”简化重复的筛选操作,管理器,筛选,操...
Excel禁止输入重复数据的技巧
Excel禁止输入重复数据的技巧,重复数据,禁止输入,选项卡,单击...
excel快速删除空行的技巧
excel快速删除空行的技巧,删除,快速,复制,单击,排序,清除,区...
excel禁止大多家餐馆重复报餐并分类统计总数
excel禁止大多家餐馆重复报餐并分类统计总数,统计,分类,重复,...
Excel按重复出现的次数分别突出标识重复值
Excel按重复出现的次数分别突出标识重复值,重复,次数,标识,条...
Excel 查找与替换操作
Excel 查找与替换操作,操作,替换,查找,执行,字符串,对话框,目...
Excel 重复操作
Excel 重复操作,操作,重复,菜单,执行,命令,选取,存档,Excel 重...
在Excel中插入、删除单元格、行和列
在Excel中插入、删除单元格、行和列,删除,执行,活动,命令,操...
excel对多个选定区域求和
excel对多个选定区域求和,区域,方法,单击,输入,选择,北京,操...
excel名称的修改和删除
excel名称的修改和删除,删除,修改,名称,列表,项目,框下,输入,e...
增加和删除Excel图表数据
增加和删除Excel图表数据,图表,数据,删除,拖动,选择,系列,清...
excel在两个工作表之间查找相同的内容并复制到
excel在两个工作表之间查找相同的内容并复制到新表,查找,用户...
excel用vlookup查找数据并复制到另一表格
excel用vlookup查找数据并复制到另一表格,复制,数据,查找,函...
Excel快速对列计数(重复的数值不计)的技巧
Excel快速对列计数(重复的数值不计)的技巧,重复,快速,统计,筛...