求助;如何去除C列重复数字！谢谢

清风与明月

求助;如何去除整个C列重复数字！谢谢  （C列有321个数字，其中4个数字重复，去除重复的剩余317个数字）

清风与明月

C列有4个一组的321个数据，其中4个数据重复（重复的4个数据分别是2370 3302 7499 5455），去除重复的剩余317数据，希望去掉重复的哪4个数据。谢谢

grf1973

1. Sub tt()
   
2.     arr = Range("c1:c" & [c65536].End(3).Row)
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 1 To UBound(arr)
   
5.         xrr = Split(arr(i, 1), " ")
   
6.         p = 0
   
7.         For k = 0 To UBound(xrr)
   
8.             x = xrr(k)
   
9.             If Len(x) > 0 Then
   
10.                 If Not d.exists(x) Then
    
11.                     d(x) = ""
    
12.                 Else
    
13.                     p = 1
    
14.                     xrr(k) = "重 复"
    
15.                 End If
    
16.             End If
    
17.         Next
    
18.         If p = 1 Then h = h & "," & i: arr(i, 1) = Join(xrr, " ")
    
19.     Next
    
20.     [f1].Resize(UBound(arr)) = arr
    
21.     If Len(h) Then MsgBox "第" & Mid(h, 2) & "行出现重复"
    
22. End Sub
    

复制代码

清风与明月

grf1973 谢谢