怎么把两个excel表相同的删掉

要将两个Excel表格中的相同项删除，可以使用以下几种方法：使用条件格式、使用VBA代码、使用Power Query、使用公式。这几种方法各有优劣，具体应用取决于数据的复杂度和用户的熟悉程度。

使用条件格式：可以直观地标记重复项，方便手动删除。这个方法适用于简单的情况。

使用公式：例如使用VLOOKUP或MATCH函数，可以高效地查找和标记重复项。这在处理大量数据时非常有用。

使用VBA代码：适合需要自动化处理的情况，可以编写脚本来删除重复项。

使用Power Query：适合处理复杂的数据清洗任务，能进行更复杂的数据操作。

以下是详细介绍这些方法的内容。

一、使用条件格式

1.1 选择数据范围

首先，需要选择两个表格中要比较的数据范围。假设表1的数据在Sheet1的A列，表2的数据在Sheet2的A列。

1.2 应用条件格式

在Excel中，选择Sheet1的A列数据，依次点击“开始” -> “条件格式” -> “新建规则”，选择“使用公式确定要设置格式的单元格”。

在公式框中输入以下公式：

=COUNTIF(Sheet2!$A:$A, A1)>0

选择一种格式来标记重复项，例如填充颜色。点击“确定”，重复项会被标记出来。

1.3 删除重复项

标记完成后，可以手动删除这些重复项。选择标记的单元格，右键选择“删除”，选择“整行”来删除包含重复项的整行。

二、使用公式

2.1 使用VLOOKUP函数

假设表1的数据在Sheet1的A列，表2的数据在Sheet2的A列。在Sheet1的B列输入以下公式：

=IF(ISNA(VLOOKUP(A1, Sheet2!$A:$A, 1, FALSE)), "Unique", "Duplicate")

拖动填充柄，将公式应用到B列的所有单元格。这个公式会在B列标记出“Duplicate”（重复项）和“Unique”（唯一项）。

2.2 删除重复项

根据B列的标记，可以轻松过滤出重复项，并手动删除这些行。选择B列，点击“数据” -> “筛选”，选择“Duplicate”进行筛选，删除筛选出的行。

三、使用VBA代码

3.1 打开VBA编辑器

按下Alt + F11打开VBA编辑器，插入一个新模块，输入以下代码：

Sub RemoveDuplicates()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim rng1 As Range
    Dim rng2 As Range
    Dim cell As Range
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    Set rng1 = ws1.Range("A1:A" & ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row)
    Set rng2 = ws2.Range("A1:A" & ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row)
    For Each cell In rng1
        If Not IsError(Application.Match(cell.Value, rng2, 0)) Then
            cell.EntireRow.Delete
        End If
    Next cell
End Sub

3.2 运行代码

按下F5运行代码，VBA会自动删除Sheet1中与Sheet2重复的行。

四、使用Power Query

4.1 导入数据

在Excel中，点击“数据” -> “获取数据” -> “从表/范围”，将Sheet1和Sheet2的数据分别导入Power Query编辑器。

4.2 合并查询

在Power Query编辑器中，选择“合并查询”，选择Sheet1和Sheet2的数据列进行合并，使用内连接来找到重复项。

4.3 过滤和删除

在合并结果中，可以看到重复项，选择这些行右键点击“删除”。然后将结果加载回Excel。

结论

通过以上方法，可以有效地删除两个Excel表格中相同的项。使用条件格式、公式、VBA代码、Power Query各有优劣，根据具体情况选择合适的方法，可以大大提高工作效率和准确性。