多列电话去重复

txbihai

你好，筛选唯一电话的客户。

例：客户1的电话1、2、3、4不能在其它客户的电话1、2、3、4里出现，电话不重复的客户筛选 出来，最好是VBA做，谢谢

su45

怎么判断那个是对的呢？

爱疯

题意不清，建议：
1）只列举几行数据
2）故意给出错误，并手动模拟处理后的结果。

grf1973

1. Sub tt()
   
2.     arr = [a1].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     n = 1
   
5.     For i = 2 To UBound(arr)
   
6.         For j = 3 To UBound(arr, 2)
   
7.             If Len(arr(i, j)) >= 7 Then
   
8.                 If Not d.exists(arr(i, j)) Then
   
9.                     d(arr(i, j)) = ""
   
10.                 Else
    
11.                     x = x & "," & i   '重复的行
    
12.                     Exit For
    
13.                 End If
    
14.             End If
    
15.         Next
    
16.     Next
    
17.     x = x & ","
    
18.     For i = 2 To UBound(arr)
    
19.         If InStr(x, "," & i & ",") = 0 Then
    
20.             n = n + 1
    
21.             For j = 1 To UBound(arr, 2)
    
22.                 arr(n, j) = arr(i, j)
    
23.             Next
    
24.         End If
    
25.     Next
    
26.     [h1].Resize(n, UBound(arr, 2)) = arr
    
27. End Sub
    

复制代码