|
楼主 |
发表于 2010-10-17 07:52
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
kankan1030在
寸有所长,尺有所短http://club.excelhome.net/thread-637293-2-1.html
中的关于速度的回复:
1、=INDIRECT("2!R"&CEILING((FIND(V6,PHONETIC(A1:T15))-1)/60,1)&"C"&MOD((FIND(V6,PHONETIC(A1:T15))-1)/3,20)+1,0)
速度:18.76S
2、=SUMIF(OFFSET($A$1:$T$1,LOOKUP(MID($V6,1,1),{"a","b","c"},{4,9,14}),0,-5),V6,OFFSET('2'!$A$1,LOOKUP(MID($V6,1,1),{"a","b","c"},{0,5,10}),,,))
速度:24.93S
3、=SUMIF($A$1:$T$15,$V6,'2'!$A$1)
速度:26.93S
4、=INDIRECT("2!"&TEXT(SUM((A1:T15=V6)*(ROW(A1:T15)*1000+COLUMN(A1:T15))),"r0c000"),0)
速度:28.33S
5、=MIN(IF($A$1:$T$15=$V6,'2'!$A$1:$T$15))
速度:40.52S
以上公式测试环境相同,均为运算十万次所需的时间。 |
|