请教如何统计Al列中的数据。

cplogistics

在A列中输入数据，然后分别统计1位，2位，3位以及4位数的出现次数并生成类似的表格。多谢!
就是统计A列中    1这样的单位数字出现了多少次，然后按从多到少排序；再统计1，2这样的两位数出现了多少次，然后按从多到少排序；再统计1，2，3这样的三位数出现了多少次，然后按从多到少排序；再统计
1，2，3，4这样的四位数出现了多少次，然后按从多到少排序。 统计表.rar (123.12 KB, 下载次数: 28)

2013-12-17 21:02 上传

点击文件名下载附件

dsmch

1. Dim w, d, arr, x%
   
2. Sub Macro1()
   
3. arr = Range("a1").CurrentRegion
   
4. Set d = CreateObject("scripting.dictionary")
   
5. [d4:n65536].Clear
   
6. For x = 1 To 4
   
7.     For i = 2 To UBound(arr)
   
8.         w = Split(arr(i, 1))
   
9.         aa "", "", 0
   
10.     Next
    
11.     Cells(4, x * 3 + 1).Resize(d.Count) = Application.Transpose(d.keys)
    
12.     Cells(4, x * 3 + 2).Resize(d.Count) = Application.Transpose(d.items)
    
13.     Cells(4 + d.Count, x * 3 + 1) = "合计"
    
14.     Cells(4 + d.Count, x * 3 + 2) = Application.Sum(d.items)
    
15.     Cells(4, x * 3 + 1).Resize(d.Count + 1, 2).Borders.LineStyle = xlContinuous
    
16.     d.RemoveAll
    
17. Next
    
18. End Sub
    
19. Sub aa(a$, b$, t%)
    
20. If t = x Then
    
21.     d(Mid$(a, 2)) = d(Mid$(a, 2)) + 1
    
22. End If
    
23. For i = 0 To UBound(w)
    
24.     If b = "" Then
    
25.         aa a & " " & w(i), b & i, t + 1
    
26.     Else
    
27.         If i > Val(Right$(b, 1)) And InStr(a, w(i)) = 0 Then aa a & " " & w(i), b & i, t + 1
    
28.     End If
    
29. Next
    
30. End Sub
    

复制代码

这个能否申请技术分？递归、字典、数组

dsmch

附件，请测试…………