[已解决]再问：如何将一区域内的数据按出现次数从少到多排序

lijian8003

下列附件是将a1:c3区域内的数据按出现次数从少到多排序，写入F列
现在欲将a11-a13单元格的数据，按出现次数从少到多排序，次数相同的，从小到大排，未出现的数据也是从小到大排，并添加在出现的数据之前，写入b13单元格，如何修改？
举例：
数据147 554 935
按出现次数从少到多排序，次数相同的，从小到大排：137945
未出现的数据也是从小到大排：0268
未出现数据从小到大排后，添加在出现的数据之前：0268137945

最佳答案

月排行榜 / 总排行榜

dsmch

2015-2-17 17:14

自定义函数，公式=zdy(引用的单元格)

跳转到最佳答案楼层

dsmch

自定义函数，公式=zdy(引用的单元格)

lijian8003

dsmch 发表于 2015-2-17 17:14
自定义函数，公式=zdy(引用的单元格)

感谢帮助。
需要解决的问题是：a11-a13单元格的数据....，比如上述附件，怎样修改？恳望继续得到您的帮助。

dsmch

1. Sub zdy()
   
2. Dim arr, brr, d, i%, j%, p$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = [a1:c3]
   
5. ReDim brr(1 To UBound(arr), 1 To 1)
   
6. For i = 1 To UBound(arr)
   
7.     zf = Join(Application.WorksheetFunction.Index(arr, i, 0), "")
   
8.     brr(i, 1) = "'" & zf
   
9.     For j = 1 To UBound(arr, 2)
   
10.         d(arr(i, j)) = d(arr(i, j)) + 1
    
11.     Next
    
12. Next
    
13. x1 = Application.Min(d.items)
    
14. x2 = Application.Max(d.items)
    
15. p = "'"
    
16. For i = 0 To 9
    
17.     If Not d.exists(i) Then p = p & i
    
18. Next
    
19. For i = x1 To x2
    
20.     For j = 0 To 9
    
21.         If d(j) = i Then p = p & j
    
22.     Next
    
23. Next
    
24. Range("a11").Resize(UBound(brr)) = brr
    
25. [b13] = p
    
26. End Sub

复制代码

sxzr

我也学习了.