请问EXCEL中如何从多条数据中选出相同数据，并删除该多条相同的记录，同时要保留其中一条？

发布网友发布时间：2022-02-27 00:09

共3个回答

热心网友时间：2022-02-27 01:38

在E1输入公式
=IF(SUMPRODUCT((A$1:A1=A1)*(B$1:B1=B1)*(C$1:C1=C1)*(D$1:D1=D1))=1,"YES","")
下拉填充公式
再对E列自动筛选即可

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

用vba.
alt+f11,插入个模块。
比如你的数据在a1:d5

在右边拷入代码如下.
Sub 删除重复行()
Dim arr, d As Object
Dim a As Long
a = [a65536].End(xlUp).Row
Set d = CreateObject("scripting.dictionary")
arr = Sheets("表名").Range("a1").CurrentRegion '表名改成你的表名，这样要求你中间没有空行
'arr = Sheets("表名").Range("a1:d" & a) ' 如果你中间有空行，就要用这一行
For i = 2 To UBound(arr) '
x = arr(i, 1) & "," & arr(i, 2) & "," & arr(i, 3) & "," & arr(i, 4) '假如在A,B,C,D列就是1,2,3,4
If Not d.exists(x) Then d.Add x, "" Else Sheets("表名").Rows(i).Delete
Next i
End Sub

返回excel。工具-宏-找到删除重复行()-执行
友情提示：这个执行之后不能撤销，请复制一张表测试

热心网友时间：2022-02-27 04:31

07版excel
数据-删除重复项。。。