今日知识分享筛选两份excel相同项（筛选两个excel表格中相同的内容）

今日知识分享筛选两份excel相同项（筛选两个excel表格中相同的内容）

在日常工作中，我们经常需要处理大量的Excel数据，有时候会出现需要对两份表格进行比对筛选相同项的情况。本文将介绍如何使用Excel自带的功能以及VBA编程实现两份Excel表格的相同项筛选。

一、 使用Excel自带的功能

如果只是需要比对简单的几个列，可以使用Excel自带的条件格式和筛选功能来实现。具体步骤如下：

1. 将两个表格分别打开，选中其中一个表格中要比对的列（假设为A列）。

2. 点击“开始”菜单中的“条件格式”，选择“突出显示单元格规则”-“重复项”。

3. 在弹出的窗口中，选择“此列中的重复项”，并选择样式。

4. 再次选中要比对的列（假设为B列），点击数据菜单中的“高级”按钮，在弹出的窗口中选择“复制到其他位置”，将要比对的列（B列）和一个空白列（假设为C列）复制到另一个空白工作表格中。

5. 在第二个表格中选中要比对的列（C列），点击“数据”菜单中的“筛选”按钮，并选择“筛选器”-“筛选重复项”，在弹出的窗口中勾选要比对的列（C列）并点击“确定”。

6. 筛选后就能看到第二个表格中与第一个表格中相同的数据了。

二、 使用VBA编程实现

如果需要比对的列比较多，使用Excel自带的功能就不太方便了，此时可以使用VBA编程实现。具体步骤如下：

1. 打开需要比对的两个表格，按Alt+F11打开VBA编辑器。

2. 在VBA编辑器中点击“插入”菜单中的“模块”，在新建的模块中输入以下代码：

Sub CompareAndCopy()

Dim sht1 As Worksheet, sht2 As Worksheet

Dim arr1 As Variant, arr2 As Variant

Dim i As Long, j As Long, k As Long, l As Long

Set sht1 = Workbooks("Workbook1.xlsx").Worksheets("Sheet1") '将“Workbook1.xlsx”和“Sheet1”替换为要比对的第一个表格名称和工作表名称。

Set sht2 = Workbooks("Workbook2.xlsx").Worksheets("Sheet1") '将“Workbook2.xlsx”和“Sheet1”替换为要比对的第二个表格名称和工作表名称。

arr1 = sht1.Range("A1:C100").Value '将“A1:C100”替换为要比对的第一个表格的范围。

arr2 = sht2.Range("A1:C100").Value '将“A1:C100”替换为要比对的第二个表格的范围。

k = sht2.Range("A1").End(xlDown).Row '获取第二个表格最后一行的行号。

l = 1 '初始化第三个表格的行号。

For i = 1 To UBound(arr1, 1)

For j = 1 To UBound(arr1, 2)

If arr1(i, j) = arr2(i, j) Then

If j = UBound(arr1, 2) Then

sht2.Range("D" & k + 1).Value = arr2(i, j)

sht2.Range("E" & k + 1).Value = k

k = k + 1

End If

Else

Exit For

End If

Next j

Next i

For i = 1 To UBound(arr2, 1)

If Not IsEmpty(sht2.Range("D" & i)) Then

For j = 1 To UBound(arr2, 2)

sht2.Range("F" & l).Value = arr2(i, j)

l = l + 1

Next j

End If

Next i

End Sub

3. 将代码中的“Workbook1.xlsx”、“Sheet1”、“A1:C100”、以及“Workbook2.xlsx”、“Sheet1”、“A1:C100”替换为要比对的两个表格和要比对的列的范围。

4. 执行代码，即可将第二个表格中与第一个表格中相同的数据复制到一个新的工作表格中。

以上是两种比对两份Excel表格中相同项的方法，如果是要比对较简单的几列，建议使用Excel自带的功能；如果需要比对的列比较多，可以使用VBA编程实现。不管哪一种方法，都能有效地帮助我们处理Excel数据中的常见问题。

本文地址： ：，，。以上内容关于筛选两份excel相同项（筛选两个excel表格中相同的内容）