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

灰袍法师

原帖由 Zamyi 于 2010-12-8 11:54 发表
SpecialCells和Union，还有application.index、application.transpose都是慢速家伙，你的问题不是Union比SpecialCells慢的问题，你看你程序用了多少次Union和多少次SpecialCells，就明白啦。

Zamyi的回帖乃是正解

关键不是SpecialCells速度快，而是因为只调用了一次SpecialCells。

SpecialCells其实是个很聪明的取巧办法，我也学习了。

我估计它背后的做法其实就是数据有效性，只不过以VBA代码的形式提供给大家用。

聪明之处在于先修改不合条件的单元格为公式，然后SpecialCells就可以一次把所有非公式单元格找出来并且修改，确实很聪明。

不过顶楼的Union用法确实不对， application.union(rng,Cell(i,1)) 这不是又把讨厌的Cell函数拿回来了吗，肯定会比逐个改单元格更慢了

正确地做法是用数组保存每个单元格的range，然后用30分法尽可能减少Union的次数

嗯，等我再改一下程序先，不过估计没法比SpecialCells更快

改好了，现在100万行上色是26秒，1万行也是0.3秒，貌似比SpecialCells更快。

第10页第96楼有改进的代码，104万行2.7秒完成，此附件不看也罢了

[ 本帖最后由 灰袍法师 于 2010-12-10 20:10 编辑 ]

高度保密

我的机子运行14楼附件可以通过，5秒左右。

excelflower

原帖由 Zamyi 于 2010-12-8 17:43 发表
即使可以用SpecialCells，速度还是不行，10W个上色2秒内完成没问题。

多谢老师再次关注！我现在那是相当地渴望啊！！老师您太帅了！！！

excelflower

原帖由 灰袍法师 于 2010-12-8 19:01 发表


Zamyi的回帖乃是正解

关键不是SpecialCells速度快，而是因为只调用了一次SpecialCells。

SpecialCells其实是个很聪明的取巧办法，我也学习了。

我估计它背后的做法其实就是数据有效性，只不过以VBA代码 ...

老师啊！您终于来了！！

激动中......

再次

等待中......

excelflower

原帖由 高度保密 于 2010-12-8 21:01 发表
我的机子运行14楼附件可以通过，5秒左右。

凭什么您的机器比我的好  

求您上个截图，让咱饱饱眼福呗

sunsoncheng

30分法?

也就是说可以提高30倍?

法师,快点出来一个东东看下

jiminyanyan

占位学习。。。。。

[ 本帖最后由 jiminyanyan 于 2010-12-8 22:19 编辑 ]

office2008

利用字符每30来一下，不可能快过 SpecialCells

excelflower  利用取巧的办法

很聪明，绝对有前途

excelflower

原帖由 office2008 于 2010-12-8 21:35 发表
利用字符每30来一下，不可能快过 SpecialCells

excelflower  利用取巧的办法

很聪明，绝对有前途

多谢老师！！！
您过讲了！我心里那个美呀！呵呵

灰袍法师

嗯，现在用Union函数，可以做到100万行大概26秒

10万行大概2-3秒

1万行0.5秒以内

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

结果就只好一次合并30个单元格，但是又控制最终的Union不要合并太多单元格，我米青神分裂了。。。。。。

附件在41楼

附带一说SpecialCells，照理如果1万行需要0.3秒，那么10万行应该就是3秒，如果不是这样的话，说明SpecialCells也跟Union一样，有着区域越大速度越慢的毛病，可能还是分拆为小区域来处理更快。

实际上我的电脑运行SpecialCells , 1万行是0.3秒，而5万行是8秒，很不正常啊。思考中。。。。。。

[ 本帖最后由 灰袍法师 于 2010-12-8 22:19 编辑 ]