老师给的大青枣烤蹄，现交作业。

excelflower

原帖由 灰袍法师 于 2010-12-8 22:08 发表
嗯，现在用Union函数，可以做到100万行大概26秒

10万行大概2-3秒

1万行0.5秒以内

也许还是没有SpecialCells快速，关键是Union函数除了本身很慢，还有个坏毛病就是合并的区域如果很大，也会很慢

结果就只 ...

老师您好！这个太强了 我得把代码从头到尾、仔仔细细的琢磨琢磨......
这个题考的是UNION，按运行时间计算，我没及格啊

sunsoncheng

就在前几天我对动态数组进行这测试

6W多行用了我42S在虚拟机上

所以不用动态数组或者数组也用30分法可以会更快些

写代码的速度 太慢了就不写了

camle

试了下41楼附件,我家老爷机也能跑到0.3秒以下.
如果直接更改颜色,次数5975次,时间1.7秒左右...
差距还是蛮大的.

高度保密

不好意思，不会发图片，好不容易才发上来了，不知道看得见不

ericjon

结果不对吧，应该是小于60的才涂上红色。

masterexcel

用循环应该是最慢的，用specialcell是最快的方法之一，当然，需要加一辅助列，进行判断，代码如下：
当30000再往上加的时候，超过34200的时候，就出错，所有的单元格都被染色，为什么呢？请高手指点
所有测试在2007+XP下进行

1. 
   
2. Sub test()
   
3.     t1 = Timer
   
4.     With ActiveSheet.Cells(1, 1)
   
5.         .CurrentRegion.Clear
   
6.         .Resize(30000, 1).Value = "=randbetween(0,100)"
   
7.         .CurrentRegion.Value = .CurrentRegion.Value
   
8.         With .Offset(0, 1).Resize(30000, 1)
   
9.             .Value = "=if(a1<60,1,""me"")"
   
10.             .Value = .Value
    
11.             .SpecialCells(xlCellTypeConstants, xlNumbers).Offset(0, -1).Interior.ColorIndex = 50
    
12.         End With
    
13.     End With
    
14.     ActiveSheet.Columns("B:B").Delete
    
15.     t2 = Timer
    
16.     MsgBox t2 - t1 & "seconds"
    
17. End Sub
    

复制代码

Zamyi

我的方法不比灰袍法师慢，法师的方法还没细看。

怎么附件没传上去！

[ 本帖最后由 Zamyi 于 2010-12-9 09:41 编辑 ]

excelflower

原帖由 masterexcel 于 2010-12-9 09:12 发表
用循环应该是最慢的，用specialcell是最快的方法之一，当然，需要加一辅助列，进行判断，代码如下：
当30000再往上加的时候，超过34200的时候，就出错，所有的单元格都被染色，为什么呢？请高手指点
所有测试在200 ...

老师你好！

发现问题了，我用的是2010，14楼的附件（10W）可以得出正确结果。

刚刚用2007测试14楼的附件，全部单元格变红色，看来2007有问题！！！？？？【或者说2010更强大！！！可是差哪呢？？？】

[ 本帖最后由 excelflower 于 2010-12-9 09:27 编辑 ]

excelflower

原帖由 Zamyi 于 2010-12-9 09:19 发表
我的方法不比灰袍法师慢，法师的方法还没细看。

老师你好！学生继续等待中......

excelflower

原帖由 Zamyi 于 2010-12-9 09:19 发表
我的方法不比灰袍法师慢，法师的方法还没细看。

怎么附件没传上去！

老师你好！没找到附件，请您再上传一次。