[开_80]速度速度速度！大家都来比一比！[已总结]

UNARTHUR

to:liushuce2818

此代码运行结果有误，请检查。

另输出结果时可以用数组直接赋值，这样能够明显提高速度。代码中尚有一些不够严谨的之处，可进一步改进。

UNARTHUR

to:yangchun88

速度慢些不要紧，只要参与就是好事！请阅读总结贴或其他朋友的发贴，肯定对您有所帮助。如有不明白的地方可提出来讨论。

qee用

[建议]
"债"要还的嘛,这个贴子就结了吧.
UNARTHUR楼主4分.
2楼山菊花2分.
21楼shuyee1分.
以上请版主考虑.
[em04]再看这个贴子时,俺有搅局嫌疑,下不为例,这次就别扣分了.

ugvcel2000

{:soso_e103:}进来学习

gongjieg

1. Sub 按钮2_单击()
   
2. Dim time As Single
   
3. time = Timer
   
4. Dim d As New Dictionary
   
5. Dim arr(), arr2(), arr3()
   
6. Dim i As Long, k As Long
   
7. arr = Sheet1.Range("a1").CurrentRegion
   
8. For i = LBound(arr) To UBound(arr)
   
9.   For k = 1 To 4
   
10.   d(arr(i, k)) = d(arr(i, k)) + 1
    
11.   Next
    
12. Next
    
13. 
    
14. ReDim arr3(1 To 500, 1 To 1)
    
15. ReDim arr2(1 To 500, 1 To 2)
    
16. For k = 1 To 500
    
17.    i = Application.WorksheetFunction.Large(d.Keys, k)
    
18.     arr2(k, 1) = i
    
19.     arr2(k, 2) = d(i)
    
20.     arr3(k, 1) = arr2(k, 1) & "" & arr2(k, 2)
    
21. Next
    
22. Sheet1.Range("g1:g500") = arr3
    
23. Set d = Nothing
    
24. Debug.Print Timer - time
    
25. End Sub

复制代码

kuangben8

望尘莫及！望洋欣叹

lee1892

这题居然完全没有讨论更为普遍的情况，而局限于一个最为简单的只适用于一个不大的整数范围的计数排序的算法，我实在是Faint~

适用于任何变量的较为快速的解决方法应该是这样的：

采用字典对象进行连续次数的统计
对连续次数采用二叉堆维护一个优先队列
由二叉堆中取出前500个

代码不难实现的~

laoau139

顶，谁来更快速度

FOB_FN_L

37楼说的有道理呀，通用性比较差这个题