在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快速对列计数(重复的数值不计)的技巧,重复,快速,统计,筛...