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

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

随着数据处理的重要性越来越被人们所认识，Excel成为了人们最常用的数据处理工具之一。但是，在进行数据处理时，筛选两个相同行的数据却成为了一件比较复杂的事情。本文将会详细介绍通过Excel自带功能和VBA代码两种方法筛选两个excel相同行，让您轻松解决这个问题。

一、通过Excel自带功筛选方法

1.首先打开你要处理的两个Excel文件。

2.在其中一个文件中选择要对比的列，然后单击“开始”选项卡中Excel表格中的“条件格式”命令。

3.选择“颜色标度” > “高亮单元格规则”> “值” > “等于”。

4.在出现的框中，填入您想要对比的那一列名称，并大写赋值范围。

5.重复步骤3-4，但是在第一栏中选择要进行比较的另一个文件。

6.单击“确定”，您将看到第一个文件中与第二个文件相同的数据行已经高亮显示了，这样就成功地筛选出了这两个Excel文件相同的行。

二、通过VBA代码筛选方法

1.打开您需要进行对比的两个Excel文件。

2.按下“ALT+F11”键，打开Microsoft VBA编辑器。

3.在编辑器窗口中插入以下代码：

Sub CompareWorkbooks()

Dim excel_app As Object

Dim wkbk_1 As Object

Dim wkbk_2 As Object

Set excel_app = CreateObject("Excel.Application")

Set wkbk_1 = excel_app.Workbooks.Open("C:\workbook1.xlsx") '第一个要比较的Excel文件地址

Set wkbk_2 = excel_app.Workbooks.Open("C:\workbook2.xlsx") '第二个要比较的Excel文件地址

For Each c In wkbk_1.Sheets(1).Range("A1:Z100") '可自定义两个文件要比较的范围

For Each d In wkbk_2.Sheets(1).Range("A1:Z100")

If c.Value = d.Value Then '比较两个文件是否相同

MsgBox "相同行为：" & c.Row

End If

Next d

Next c

wkbk_1.Close

wkbk_2.Close

excel_app.Quit

Set wkbk_1 = Nothing

Set wkbk_2 = Nothing

Set excel_app = Nothing

End Sub

4.按下“F5”键或者单击“运行”菜单上的“Run”，即可开始运行此代码并得到相应结果。

本文分别介绍了通过Excel自带功能和VBA代码两种方法筛选两个Excel相同行。其中，Excel自带功能简单易操作，但是需要手动进行筛选；而使用VBA代码虽然稍微麻烦一些，但是更加精准高效。通过掌握这两种方法，您轻松就能处理Excel数据中的重复行。

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