如何删除Excel两列表格中的重复项

发布网友 发布时间：2022-02-26 14:42

我来回答

共5个回答

懂视网 时间：2022-02-26 19:04

excel删除重复数据保留一条：

电脑：

产品名称：华硕笔记本

产品型号：ASUS U4700I

系统版本：Windows 10  

软件版本：excel 2016

1.在电脑上打开需要删除重复数据的excel表格。

2.选中需要删除重复内容的数据列，在菜单栏中点击“数据”。

3.点击“删除重复值”，在删除重复值的弹窗中点击“全选”。

4.点击“确定”，可发现已成功删除重复数据只保留一个。

总结

1.打开需要删除重复数据的excel表格。

2.选中需要删除重复内容的数据列，点击“数据”。

3.点击“删除重复值”，在弹窗中点击“全选”。

4.点击“确定”，即可删除重复数据只保留一个。

热心网友 时间：2022-02-26 16:12

C1输入

=INDEX(A:A,SMALL(IF(COUNTIF(B:B,A:A),100,ROW(A:A)),ROW(A1)))&""

D1输入

=INDEX(B:B,SMALL(IF(COUNTIF(A:A,B:B),100,ROW(B:B)),ROW(A1)))&""

两公式都是数组公式，先按住CTRL+SHIFT,最后回车，公式下拉

热心网友 时间：2022-02-26 17:30

C1用公式：

=IFERROR(SMALL(IF(COUNTIF(A$1:B$3,A$1:B$3)=1,A$1:B$3),ROW(A1)),"")

数组公式，需要按CTRL+SHIFT+回车，完成公式，下拉。

热心网友 时间：2022-02-26 19:04

Sub 删公共重复项()
Dim d As Object, text1, text2, cc, arr1, arr2, arr3
Set d = CreateObject("Scripting.dictionary")   '创建字典存放重复值
Set arr1 = [a1:a3]             '比对范围1
Set arr2 = [b1:b3]             '比对范围2
For Each text1 In arr1
For Each text2 In arr2
If text2.Text = text1.Text Then
d(text2.Text) = ""
End If
Next text2
Next text1
Set arr3 = Union(arr1, arr2)
For Each cc In arr3
If d.Exists(cc.Text) Then
cc.Clear                       '符合条件，清空单元格
End If
Next cc
End Sub

1、代码功能：比对范围[a1:a3]和[b1:b3]，删除两个范围内都重复的数据。

2、代码自定义部分：4、5行

3、使用方法：

热心网友 时间：2022-02-26 20:56

写代码可以实现