Excel怎么查找和删除重复值 Excel查找和删除重复值教程方案( 二 ) _知识经验

方法三：用Excel 2007中的“删除重复项”功能
选择A2:A21区域，单击功能区“数据→删除重复项”，在“删除重复项”对话框中单击“确定” 。

Excel 2007自动将重复值删除，并给出提示。

方法四：辅助列+合并计算
利用Excel中的合并计算功能删除重复值，该方法不仅适用于一列数据，还能合并不同工作表中的多个单列数据并去掉合并后的重复项。以Excel2003为例介绍如下：
1.由于数据在A列，以其右侧的B列为辅助列。在B列对应A列数据区域中的任一单元格中输入一个数值，以便Excel进行合并计算。如在B8输入一个数值“2” 。

2.本例将删除重复值的数据将放置在D列，选择D2单元格。单击菜单“数据→合并计算”，弹出“合并计算”对话框。单击“引用位置”下的文本框，选择A2:B21区域，单击“添加”按钮，将该区域添加到“所有引用位置”下方的区域中。在“标签位置”下勾选“最左列”，“函数”下方的选项保持默认的“求和”即可。

如果要合并多列去重复，继续选择其他列并单击“添加”按钮。
3.单击“确定”，可以看到Excel删除A列中的重复值并将数据放置到D2:D18区域。

方法五：用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
【Excel怎么查找和删除重复值 Excel查找和删除重复值教程方案】’如果字典对象中不包含同样的对象就添加该对象
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查找和删除重复值教程方案( 二 )

猜你喜欢