白芳 已认证副研究员
很多 Excel 用户都曾遇到过这样的问题：数据中存在大量重复内容，想要导出这些数据时却发现 Excel 并不能直接筛选重复项。那么，我们该如何解决这个问题呢？本文将为你揭秘如何把 Excel 重复的数据导出，让你轻松摆脱重复数据的困扰。
一、认识 Excel 重复数据
在 Excel 中，重复数据指的是在一定范围内出现多次的数据。这些数据可能是单元格中的文本、数字或公式等。想要找出重复数据，我们可以利用 Excel 的“高级筛选”功能，筛选出重复项，从而实现导出重复数据的目的。
二、筛选重复数据并导出
1. 打开 Excel，进入到包含重复数据的工作表，选中需要筛选重复数据的数据区域。
2. 点击“数据”选项卡，在下拉菜单中选择“高级”。
3. 在弹出的“高级筛选”对话框中，选择“列表区域”和“输出区域”，点击“确定”。
4. 在“高级筛选”对话框中选择“重复记录”，点击“确定”。此时，Excel 会自动筛选出重复数据，并将其放置在指定的输出区域。
5. 点击“文件”选项卡，选择“另存为”，将筛选出的重复数据导出为新的 Excel 文件。
三、导出重复数据的技巧
1. 利用条件格式：我们可以在数据列中添加条件格式，将重复数据标记出来。选中需要检查重复数据列，点击“开始”选项卡，选择“条件格式”，选择“使用公式来确定要设置的单元格格式”。在公式框中输入“=COUNTIF(A:A, A1)>1”，点击“确定”。这样，重复数据就会以红色或其他颜色标记出来，方便我们筛选和导出。
2. 结合 VBA 编程：如果你对 VBA 编程有一定了解，可以利用 VBA 编写宏来导出重复数据。以下是一段简单的 VBA 代码示例：
```vba
Sub ExportDuplicates()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim duplicates As Collection
Dim i As Long
' 设置工作表、范围和输出工作表
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set rng = ws.Range("A1:Z100")
Set outputWs = ThisWorkbook.Worksheets("Sheet2")
' 创建一个集合来存储重复的记录
Set duplicates = New Collection
' 遍历工作表中的每个单元格
For Each cell In rng
' 判断当前单元格是否重复
If Application.CountIf(rng, cell.Value) > 1 Then
' 将重复的记录添加到集合中
duplicates.Add cell.Value, CStr(cell.Address)
End If
Next cell
' 输出重复的记录
i = 1
For Each item In duplicates
outputWs.Cells(i, 1).Value = item
i = i + 1
Next item
End Sub
```
四、总结
想要把 Excel 重复的数据导出，我们可以通过高级筛选、条件格式和 VBA 编程等方法来实现。只要掌握这些技巧，你就能轻松摆脱重复数据的困扰，让数据导出更加高效便捷。
