删除相同資料

hetrick

各位師兄，Excel 已有工具列删除相同資料, 可否在"Not Found Result" Worksheet column A 做一個BUTTON去做删除相同資料C:\Users\Chan\Downloads\remove duplicate

limonet

关键字：removeduplicates

limonet

Sub limonet()
    Range("A:A").RemoveDuplicates 1, xlNo
End Sub

ykcbf1100

字典去重。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.7.21
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("Not Found Result")
   
4.         r = Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .[a1].Resize(r, 1)
   
6.         ReDim brr(1 To r, 1 To 1)
   
7.         For i = 1 To UBound(arr)
   
8.             s = arr(i, 1)
   
9.             If Not d.exists(s) Then
   
10.                 m = m + 1
    
11.                 d(s) = m
    
12.                 brr(m, 1) = s
    
13.             End If
    
14.         Next
    
15.         .[c:c].ClearContents
    
16.         .[c1].Resize(m, 1) = brr
    
17.     End With
    
18.     MsgBox "OK！"
    
19. End Sub
    

复制代码