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

excelflower · 发表于 2010-12-9 15:52

原帖由 Zamyi 于 2010-12-9 15:42 发表

只是取巧而已，如果不在同一列，那没办法。
不过微软很多东西觉得效率并不好，唯独对于排序情有独钟。

老师谦虚了！每个人都在自己思维范围内、寻求最优解，绝对不是取巧。

sunsoncheng · 发表于 2010-12-9 17:12

看了各位的讨论做了一个测试,还算有点收获

串的个数与每批染色的数量可以在表格中未填入!

Union作业.rar (278.76 KB, 下载次数: 35)

Cells(3, "C").Offset(jj - 1, ii - 1) = Format(Timer - AAA, "0.0000")
这样改为4位显不吧

我用6W测试,才0.2656S
XP2+off2003,1.8G内存 1.86MHZ

[ 本帖最后由 sunsoncheng 于 2010-12-9 17:19 编辑 ]

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

原帖由 sunsoncheng 于 2010-12-9 17:12 发表
看了各位的讨论做了一个测试,还算有点收获

串的个数与每批染色的数量可以在表格中未填入!
838690

Cells(3, "C").Offset(jj - 1, ii - 1) = Format(Timer - AAA, "0.0000")
这样改为4位显不吧

...

多谢老师赐教！我得仔仔细细地琢磨琢磨！
老师的数据透视表也超强！敬礼！！！！！

sunsoncheng · 发表于 2010-12-9 17:23

按照这个测试
用UNION串的单元格数最多是36再多就出错了

每次染色的个数最好在200~300之间,
用了这种小批量处理后速度是快多了

excelflower · 发表于 2010-12-9 17:35

原帖由 sunsoncheng 于 2010-12-9 17:23 发表
按照这个测试
用UNION串的单元格数最多是36再多就出错了

每次染色的个数最好在200~300之间,
用了这种小批量处理后速度是快多了

老师你好！能描述一下，A列数据旁边的数据的意思吗？谢谢先！！！

灰袍法师 · 发表于 2010-12-9 18:59

原帖由 sunsoncheng 于 2010-12-9 17:23 发表
按照这个测试
用UNION串的单元格数最多是36再多就出错了

每次染色的个数最好在200~300之间,
用了这种小批量处理后速度是快多了

不错不错，Excel很多内部函数都是数量一增加就变得缓慢，出错，真不可靠啊。

附答Zamyi，会取巧也是一种长处啊，我当时就没想到两个辅助列的办法，我最近总是用复杂的代码去解决问题，要自我反省一下了。

总结一下：第一优先当然是条件格式，第二我想应该是SpecialCells了，分批每次处理1万好了，代码会很简单易懂。

Union还是留待大量不相邻区域的时候再说吧。

office2008 · 发表于 2010-12-9 19:29

象下面这些我们要注意
1 比如 redim arr(1 to ubound(ar),1 to 10)
   我们尽量 m=  (1 to ubound(ar))    ,然后再 redim arr(1 to m , 1 to 10) ‘也可提高一点速度
2 表格内既有大量公式的，又想用VBA
   Application.Calculation = xlCalculationManual
结束前
  Application.Calculation = xlCalculationAutomatic
3  在程序中，不再派用场的，不再公用的，对象，要释放内存
  比如， Erase arr  , set rng=nothing .set ado ,rst =nothing  等等

[ 本帖最后由 office2008 于 2010-12-9 19:47 编辑 ]

zjdh · 发表于 2010-12-9 19:53

你是否发现你的宏对末尾一些随机数未作处理！！

excelflower · 发表于 2010-12-9 20:03

帮忙测试这个10W多少秒填色测试.rar (661.88 KB, 下载次数: 22)

2010-12-9 20:03 上传
点击文件名下载附件

liuguansky · 发表于 2010-12-9 20:44

10万行0.8S左右
512内存

VBA - Union函数大量修改单元格格式的示例.rar (701.66 KB, 下载次数: 80)

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

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

回复 72楼 sunsoncheng 的帖子

浏览过的版块