如何筛选两张excel重复数据

筛选Excel中的重复数据可以通过以下几种方法进行：

方法一：使用Excel内置功能

1. 打开Excel文件。

2. 选中包含数据的列。

3. 点击“数据”选项卡。

4. 在“数据工具”组中，点击“高级”。

5. 在弹出的“高级筛选”对话框中，选择“将重复值筛选出来”。

6. 点击“确定”，Excel会筛选出重复的数据。

方法二：使用“重复项”功能

1. 打开Excel文件。

2. 选中包含数据的列。

3. 点击“数据”选项卡。

4. 在“数据工具”组中，点击“重复项”。

5. 在弹出的“重复项”对话框中，勾选“仅显示重复项”。

6. 点击“确定”，Excel会筛选出重复的数据。

方法三：使用公式

1. 在数据列表旁边插入一列。

2. 在该列的第一个单元格中输入以下公式：

```excel

=IF(COUNTIF($A$2:$A$10, A2)>1, "重复", "")

```

其中，A2是第一个数据的单元格，A10是数据列表中最后一个数据的单元格。

3. 将该公式向下拖动，以应用到整个数据列表。

4. 所有重复的数据单元格将显示“重复”。

方法四：使用VBA宏

1. 打开Excel，按 `Alt + F11` 打开VBA编辑器。

2. 在“插入”菜单中选择“模块”。

3. 在打开的代码窗口中，复制并粘贴以下VBA代码：

```vba

Sub FindDuplicates()

Dim ws As Worksheet

Dim rng As Range

Dim cell As Range

Dim lastRow As Long

Dim lastColumn As Long

Dim dict As Object

Set ws = ActiveSheet

Set dict = CreateObject("Scripting.Dictionary")

With ws

lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row

lastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column

Set rng = .Range(.Cells(1, 1), .Cells(lastRow, lastColumn))

For Each cell In rng

If Not dict.Exists(cell.Value) Then

dict.Add cell.Value, Nothing

Else

cell.Interior.Color = RGB(255, 0, 0) ' 标记重复项为红色

End If

Next cell

End With

End Sub

```

4. 关闭VBA编辑器，回到Excel。

5. 按 `Alt + F8`，选择“FindDuplicates”，然后点击“运行”。