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

excelflower · 发表于 2010-12-8 22:21

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

10万行大概2-3秒

1万行0.5秒以内

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

结果就只 ...

老师您好！这个太强了

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

sunsoncheng · 发表于 2010-12-8 22:26

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

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

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

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

camle · 发表于 2010-12-9 00:15

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

高度保密 · 发表于 2010-12-9 02:43

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

ericjon · 发表于 2010-12-9 04:50

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

masterexcel · 发表于 2010-12-9 09:12

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

Sub test()
t1 = Timer
With ActiveSheet.Cells(1, 1)
.CurrentRegion.Clear
.Resize(30000, 1).Value = "=randbetween(0,100)"
.CurrentRegion.Value = .CurrentRegion.Value
With .Offset(0, 1).Resize(30000, 1)
.Value = "=if(a1<60,1,""me"")"
.Value = .Value
.SpecialCells(xlCellTypeConstants, xlNumbers).Offset(0, -1).Interior.ColorIndex = 50
End With
End With
ActiveSheet.Columns("B:B").Delete
t2 = Timer
MsgBox t2 - t1 & "seconds"
End Sub

复制代码

Zamyi · 发表于 2010-12-9 09:19

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

怎么附件没传上去！

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

excelflower · 发表于 2010-12-9 09:21

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

老师你好！

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

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

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

excelflower · 发表于 2010-12-9 09:23

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

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

excelflower · 发表于 2010-12-9 09:28

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

怎么附件没传上去！

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

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

[讨论] 老师给的大青枣烤蹄，现交作业。

回复 45楼 excelflower 的帖子

回复 54楼高度保密的帖子

[讨论] 老师给的大青枣烤蹄，现交作业。

回复 45楼 excelflower 的帖子

回复 54楼 高度保密 的帖子

回复 54楼高度保密的帖子