如何删除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
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
