Excel如何删除唯一值？如何快速筛选出重复数据？
作者：佚名|分类：EXCEL|浏览：162|发布时间：2025-04-08 17:03:24
Excel如何删除唯一值？如何快速筛选出重复数据？
在Excel中，处理数据时经常会遇到唯一值和重复数据的问题。唯一值指的是在数据集中只出现一次的值，而重复数据则是指出现多次的值。以下将详细介绍如何在Excel中删除唯一值以及如何快速筛选出重复数据。
一、如何删除Excel中的唯一值
1. 使用条件格式
打开Excel工作表，选中包含唯一值的数据区域。
点击“开始”选项卡中的“条件格式”按钮，选择“新建规则”。
在弹出的“新建格式规则”窗口中，选择“使用公式确定要设置格式的单元格”。
在“格式值等于以下公式时”输入框中输入公式：`=COUNTIF($A$2:$A$10,A2)=1`（假设唯一值位于A列，数据范围从A2到A10）。
点击“格式”按钮，选择一个颜色作为唯一值的背景色。
点击“确定”按钮，返回“新建格式规则”窗口，再次点击“确定”。
此时，唯一值将被选中的颜色标记。
2. 使用高级筛选
选中包含唯一值的数据区域。
点击“数据”选项卡中的“高级”按钮。
在弹出的“高级筛选”窗口中，选择“将筛选结果复制到其他位置”。
在“复制到”框中指定一个空白区域，用于存放筛选结果。
点击“确定”按钮，唯一值将被筛选出来并复制到指定区域。
3. 使用VBA宏
打开Excel，按下`Alt + F11`键进入VBA编辑器。
在“插入”菜单中选择“模块”，在打开的代码窗口中输入以下代码：
```vba
Sub DeleteUniqueValues()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim rng As Range
Set rng = ws.Range("A1:A10") ' 修改为实际的数据范围
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
Dim cell As Range
Dim i As Long
Dim uniqueValues As Range
Set uniqueValues = ws.Range("A1:A10") ' 修改为实际的数据范围
For Each cell In rng
If Not dict.Exists(cell.Value) Then
dict.Add cell.Value, 1
Else
dict(cell.Value) = dict(cell.Value) + 1
End If
Next cell
For i = 1 To uniqueValues.Rows.Count
If dict(uniqueValues.Cells(i, 1).Value) = 1 Then
uniqueValues.Cells(i, 1).Delete
End If
Next i
End Sub
```
关闭VBA编辑器，回到Excel工作表，按下`Alt + F8`键，选择“DeleteUniqueValues”宏，点击“运行”。
二、如何快速筛选出重复数据
1. 使用条件格式
选中包含重复数据的数据区域。
点击“开始”选项卡中的“条件格式”按钮，选择“新建规则”。
在弹出的“新建格式规则”窗口中，选择“使用公式确定要设置格式的单元格”。
在“格式值等于以下公式时”输入框中输入公式：`=COUNTIF($A$2:$A$10,A2)>1`（假设重复值位于A列，数据范围从A2到A10）。
点击“格式”按钮，选择一个颜色作为重复值的背景色。
点击“确定”按钮，返回“新建格式规则”窗口，再次点击“确定”。
此时，重复值将被选中的颜色标记。
2. 使用高级筛选
选中包含重复数据的数据区域。
点击“数据”选项卡中的“高级”按钮。
在弹出的“高级筛选”窗口中，选择“将筛选结果复制到其他位置”。
在“复制到”框中指定一个空白区域，用于存放筛选结果。
点击“确定”按钮，重复数据将被筛选出来并复制到指定区域。
3. 使用VBA宏
打开Excel，按下`Alt + F11`键进入VBA编辑器。
在“插入”菜单中选择“模块”，在打开的代码窗口中输入以下代码：
```vba
Sub FindDuplicates()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim rng As Range
Set rng = ws.Range("A1:A10") ' 修改为实际的数据范围
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
Dim cell As Range
Dim i As Long
Dim duplicates As Range
Set duplicates = ws.Range("A1:A10") ' 修改为实际的数据范围
For Each cell In rng
If Not dict.Exists(cell.Value) Then
dict.Add cell.Value, 1
Else
dict(cell.Value) = dict(cell.Value) + 1
End If
Next cell
For i = 1 To duplicates.Rows.Count
If dict(duplicates.Cells(i, 1).Value) > 1 Then
duplicates.Cells(i, 1).Value = "重复"
End If
Next i
End Sub
```
关闭VBA编辑器，回到Excel工作表，按下`Alt + F8`键，选择“FindDuplicates”宏，点击“运行”。
相关问答
1. 问：如何删除Excel中所有唯一值？
答：可以使用条件格式、高级筛选或VBA宏等方法删除Excel中所有唯一值。
2. 问：如何快速找出Excel中重复的数据？
答：可以使用条件格式、高级筛选或VBA宏等方法快速找出Excel中重复的数据。
3. 问：VBA宏中的`COUNTIF`函数有什么作用？
答：`COUNTIF`函数用于计算指定范围内符合特定条件的单元格数量。
4. 问：如何将筛选结果复制到其他位置？
答：在“高级筛选”窗口中，选择“将筛选结果复制到其他位置”，然后在“复制到”框中指定一个空白区域即可。
5. 问：如何使用VBA宏删除Excel中的唯一值？
答：在VBA编辑器中输入删除唯一值的代码，然后运行该宏即可。