删除A,B,C三列同时重复所有整行数据，不留唯一

jsh123

删除A,B,C三列同时重复所有整行数据，不留唯一

tanglf188

ActiveSheet.Range("$A$2:$C$35").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes

liulang0808

手动操作，可以更加辅助列，筛选后删除
代码可以考虑使用字典，案例可以参考
https://club.excelhome.net/threa ... tml?_dsign=b73ad3d6

ykcbf1100

用数组，附件供参考。。。

ykcbf1100

代码以附件为准

1. Sub ykcbf()   '//2024.1.31
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("Sheet1")
   
6.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
7.         arr = .[a1].Resize(r, 3)
   
8.         .[i:k] = ""
   
9.         .[i1].Resize(UBound(arr), UBound(arr, 2)) = arr
   
10.         .[i3:k1000] = ""
    
11.         For i = 3 To UBound(arr)
    
12.             s = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)
    
13.             d(s) = d(s) + 1
    
14.         Next
    
15.         ReDim brr(1 To UBound(arr), 1 To 3)
    
16.         For Each k In d.keys
    
17.             If d(k) = 1 Then
    
18.                 m = m + 1
    
19.                 t = Split(k, "|")
    
20.                 brr(m, 1) = t(0)
    
21.                 brr(m, 2) = t(1)
    
22.                 brr(m, 3) = t(2)
    
23.             End If
    
24.         Next
    
25.         .[i3].Resize(m, 3) = brr
    
26.     End With
    
27.     Set d = Nothing
    
28.     Application.ScreenUpdating = True
    
29.     MsgBox "OK！"
    
30. End Sub
    

复制代码

jsh123

谢谢老师！感谢帮助！

limonet

方法一：=UNIQUE(A2:C34,,TRUE)
方法二：group

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "Select 姓名,日期,班次 From [Sheet1$A:C] Group By 姓名,日期,班次 Having Count(*)=1"
    Range("E2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

misterZ

1. =IFERROR(INDEX($A$2:$C$35,SMALL(IF(MATCH($A$2:$A$35&$B$2:$B$35&$C$2:$C$35,$A$2:$A$35&$B$2:$B$35&$C$2:$C$35,0)=ROW($A$2:$A$35)-1,ROW($A$2:$A$35)-1,""),ROW(A1)),COLUMN(B1)-1),"")

复制代码

ykcbf1100

misterZ 发表于 2024-1-31 11:16

你的公式得改一下，要求是只要重复的行全部删除，很明显，你还保留了唯一。