[已解决]排列去重问题

mate22

排列去重问题

最佳答案

月排行榜 / 总排行榜

sliang28

2014-2-13 19:41

请参考!

跳转到最佳答案楼层

dsmch

是先行后列，还是先列后行？

baksy

最好理解！
X1=SMALL($B$1:$K$179,ROW(A1))
Y1=TEXT(INDEX(X$1:X$1600,SMALL(IF(MATCH(X$1:X$1600,X$1:X$1600)=ROW(X$1:X$1600),ROW(X$1:X$1600),4^8),ROW(A1))),"000")
两个公式下拉到1620行，Y列是想要的结果。

mate22

dsmch 发表于 2014-2-13 19:24
是先行后列，还是先列后行？

就是把各列的数据合并去重到一列。

dsmch

1. Sub Macro1()
   
2. Dim arr, d, i&, j%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("c1").CurrentRegion
   
5. For j = 1 To UBound(arr, 2)
   
6.     For i = 1 To UBound(arr)
   
7.         If arr(i, j) <> "" Then d(arr(i, j)) = ""
   
8.     Next
   
9. Next
   
10. [n:n].NumberFormatLocal = "000"
    
11. Range("n1").Resize(d.Count) = Application.Transpose(d.keys)
    
12. End Sub
    

复制代码

冠军欧洲2010

1. Sub A()
   
2.     Dim ARR, X, Y, SR, BRR
   
3.     Dim D As New Dictionary
   
4.     ARR = Range("B1").CurrentRegion
   
5.     For X = 1 To UBound(ARR)
   
6.         For Y = 1 To UBound(ARR, 2)
   
7.             If Len(ARR(X, Y)) <> 0 Then
   
8.                 D(ARR(X, Y)) = ""
   
9.             End If
   
10.         Next
    
11.     Next
    
12.     BRR = D.Keys
    
13.     For X = 0 To D.Count - 2
    
14.         For Y = X + 1 To D.Count - 1
    
15.             If BRR(Y) < BRR(X) Then
    
16.                 SR = BRR(X)
    
17.                BRR(X) = BRR(Y)
    
18.                 BRR(Y) = SR
    
19.             End If
    
20.         Next
    
21.     Next
    
22. Range("L1").Resize(D.Count, 1) = Application.WorksheetFunction.Transpose(BRR)
    
23. End Sub
    

复制代码

sliang28

请参考!

mate22

sliang28 发表于 2014-2-13 19:41
请参考!

这个附件里代码结果只一个000.老师看看出错在哪里。

sliang28

mate22 发表于 2014-2-13 20:05
这个附件里代码结果只一个000.老师看看出错在哪里。

没有吧 我测试没有问题啊!

结果是显示在Y列的.

mate22

sliang28 发表于 2014-2-13 20:08
没有吧 我测试没有问题啊!

结果是显示在Y列的.

麻烦老师上传下您的附件。我的是这样的；运行代码后Y列只一个000