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

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

原帖由 liuguansky 于 2010-12-9 20:44 发表
10万行0.8S左右
512内存838809

838810

多谢老师赐教！

我说为什么我在做字符串连接时，超过一定数量就出错，而且出错数量没明显的规律，原来是这个Len(str1) > 238！对不？老师......

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

灰袍法师 · 发表于 2010-12-9 22:51

原帖由 liuguansky 于 2010-12-9 20:44 发表
10万行0.8S左右
512内存838809

838810

80楼这种处理方法也很聪明，大大减少了Range的数量

如果跟Union结合，估计应该100万行也是1秒完成。

毕竟有两种耗时的操作

1 Range上色，如果要上色的Range太多，就慢 (当然，现在80楼的附件100万行才4秒，没什么必要再去优化了)
2 为了减少Range上色次数，没其它办法也只能用Union，但是Union次数太多也不行

我想最快速的方法应该是

100万行每100行 set 一个 Range，那么最多只有10000 Range

而Union已经证明合并10000 Range不到0.3秒

结论就是 100万行可望在1秒完成。而且最令人高兴的是，对于不相邻的单元格也一样可用，Yeah！

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

excelflower · 发表于 2010-12-9 22:58

RANGE区域中的地址，字符限制好象是255！？加了判断又影响速度！老师看看怎么办？谢谢先！

Sub MyColor()
Dim i#, n#, MyStrA$, MyStrB$, Arr, Rng, T As Date
T = Timer
Arr = Range("a1:a100000")
For i = 1 To 100000
If Arr(i, 1) < 60 Then
If Len(MyStrA) + Len(i) + 2 < 256 Then
MyStrA = MyStrA & MyStrB & "," & "A" & i
MyStrB = ""
Else
MyStrB = "," & "A" & i
Set Rng = Range(Mid(MyStrA, 2))
Rng.Interior.ColorIndex = 3
MyStrA = ""
Set Rng = Nothing
End If
End If
Next i
MsgBox "运行时间：" & Format(Timer - T, "0.00") & "秒。"
End Sub

复制代码

灰袍法师 · 发表于 2010-12-10 02:27

哎呀

我现在才发现，楼上许多作弊的啊

把单元格字体改红色，要比单元格本身颜色改红色慢三倍

也就是说 .Interior.ColorIndex =3 比 .Font.Color = 255 要快得多

所以80楼如果也是字体改红色的话，100万行是15秒，不是5秒

不过用字符串去一次定义一个RANGE的确是好办法。

所以我也抄袭＋作弊了，现在100万行是3.5秒,10万行0.45秒

Union函数连接大量单元格速度超慢，真是可惜了，不然900个Range只需合并31次吖,而不是上色900次啊

可惜这么一个大量减少操作的函数，被大量增加的函数运行时间完全抵消。。。。。。唉

我现在是生成单个字符串，然后每30个合并，这样的速度其实还不如下面的做法快

生成两个字符串，Set 的时候同时用Union连接两个Range(String)，这样的Union是很快的。而且又可以少一半上色次数。

100万行只需3秒,嗯。。。。。。如果生成四个字符串。。。。。。值得思考

第10页第96楼是改进后的方法，每次只合并9个字符串RANGE，104万行2.5到2.7秒完成

本附件看不看都可以了

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

ZDYCTD · 发表于 2010-12-10 07:09

做个记号，有空再学习。

ljl008 · 发表于 2010-12-10 08:15

好东西，留着慢慢学！

LareinaGuo · 发表于 2010-12-10 09:56

围观学习。。。。

LareinaGuo · 发表于 2010-12-10 09:58

赫然发现，此贴是高级和铁杆级的聚会。。。。

liuguansky · 发表于 2010-12-10 11:39

原帖由 excelflower 于 2010-12-9 21:02 发表

多谢老师赐教！

我说为什么我在做字符串连接时，超过一定数量就出错，而且出错数量没明显的规律，原来是这个Len(str1) > 238！对不？老师......

关于238的问题：
RANGE最大支持字符串是255
而最后一次连接的最大文本是",A99999：A100000"加一个预留位为16
可以用239判断，238只是为了吉利嘛。。

liuguansky · 发表于 2010-12-10 11:43

原帖由 灰袍法师 于 2010-12-10 02:27 发表
哎呀

我现在才发现，楼上许多作弊的啊

把单元格字体改红色，要比单元格本身颜色改红色慢三倍

也就是说 .Interior.ColorIndex =3 比 .Font.Color = 255 要快得多

所以80楼如果也是字体改红色的话，100万行 ...

学习UNION用法了。这样又减少了单元格对象的调用。果然快了。不过分组判断更长了。

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

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