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

shuyee · 发表于 2006-2-16 11:12

还不够?有时3秒它就结束了.

由于4列合填满数据,文件较大,所以删了不少.不可检查时可以先运算你的写数据,再点run按钮.

ZY4wMk48.rar (25.72 KB, 下载次数: 54)

UNARTHUR · 发表于 2006-2-17 10:12

to:shuyee

此答案正确！只是代码中过多的使用辅助单元格和公式往往会影响速度，尽管如此代码仍有可借鉴之处，前面朋友提供的一些答案可供你进一步参考。

shuyee · 发表于 2006-2-17 10:30

是的.我没看.确实还是结合数组快.当然在数组开销上也还是有讲究的,我原来试过想把4列全读进来,Myarr(1 to 262144)as integer,262144=65536*4,整型变量2字节,262144*2=524288,竟然用要用掉500K,实在是个大错误.

UNARTHUR · 发表于 2006-2-17 14:12

呵呵！是要这么多呢，如果定义成long还会需要更多内存。不过内存数组用来处理大量的循环计算往往会比公式快很多。当然不少工作表函数的执行效率也很高，所以两者经常可以结合起来使用以使代码更精简或更快速,但是应尽量不要借助辅助单元格。另外其实你的代码比起常规思路的程序已经快上很多了，所以还是值得恭喜一下:)

shuyee · 发表于 2006-2-20 13:49

我在求前500个值的个数时,首先就想到用countif,结果是奇慢无比,改用frequency几乎是立即出结果.看样子是countif要重复判断供给要查找的每一个值,而frequency却只要排一次序,再作判断,所以要快很多(排序算法毕竟经过若干年的发展,微软使用的也会是相当成熟的了,而判断相等并计数,却没这么幸运了.).只是拙见.

谢谢你的赞美.就不说受之有亏之类的了,说声谢谢.

windcloud168 · 发表于 2006-3-1 17:10

不错

northwolves · 发表于 2006-3-2 08:52

t = Timer
arr1 = Range("a1:d65536")
imax = WorksheetFunction.Max(arr1)
imin = WorksheetFunction.Min(arr1)
Debug.Print Timer - t

这两步计算就干掉0.3秒,是不是我的机子出问题了?

liushuce2818 · 发表于 2006-3-8 19:18

请各路高手把脉,速度实在提不上来了! 不知从那儿下手? 晕!(达到这种速度很大程度受益于UNARTHUR和山菊花的提示)

Sub 按钮2_单击()
Dim i As Long
Dim j%, iTemp%, iMax%
Dim a1()
Dim t
t = Timer
Application.ScreenUpdating = False
a1 = Range("A:D")
iMax = WorksheetFunction.Max(Range("A:D"))
ReDim a2(0 To 499)
For j = 1 To 4
For i = 1 To 65536
If a1(i, j) > iMax - 500 Then
iTemp = a1(i, j)
a2(iMax - iTemp) = a2(iMax - iTemp) + 1
End If
Next
Next
For i = 0 To 499
Cells(i + 1, "k") = (iMax - i) & "\" & a2(i)
Next
Application.ScreenUpdating = True
MsgBox "运行时间" & Format(Timer - t, "0.000") & "秒"
End Sub

yangchun88 · 发表于 2006-3-9 01:30

写完后，看看别人写的真是相差甚远呀！学习ＩＮＧ

[em06]

写了一个速度最慢的！发上来倒数第一是没有问题了！

QF1tNNVg.rar (15.91 KB, 下载次数: 39)

[此贴子已经被作者于2006-3-9 1:31:29编辑过]

UNARTHUR · 发表于 2006-3-9 10:11

估计时间也差不多了，现献丑公布我的答案：

Dim arr, counts() As Integer, arr2(1 To 500, 0)
Dim maximum&, minimum&, temp&
Dim i&, j&, k&, p&, t1
maximum = Application.Max(Range(Cells(1, 1), Cells(65536, 4)))
minimum = Application.Min(Range(Cells(1, 1), Cells(65536, 4)))
arr = Range(Cells(1, 1), Cells(65536, 4))
ReDim counts(minimum To maximum) As Integer
temp = arr(1, 1)
For j = 1 To 4
For i = 1 To 65536
If arr(i, j) <> temp Then counts(temp) = counts(temp) + 1
temp = arr(i, j)
Next i
Next j
counts(temp) = counts(temp) + 1
i = 1
For p = maximum To minimum Step -1
If counts(p) <> 0 Then
arr2(i, 0) = p & "\" & counts(p)
If i = 500 Then Exit For
i = i + 1
End If
Next p
Range(Cells(1, 7), Cells(500, 7)) = arr2

LGDgako5.rar (9.72 KB, 下载次数: 115)

总结评述就以19楼的为准，暂时没有新的内容了。期望版主为该贴评分。

		自动登录	找回密码
密码			免费注册

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

4秒钟,够不够快?