VBA 代码优化 ( 高难题 )

grf1973 · 发表于 2023-1-10 13:19

把全数据的附件发上来。可以测试一下做几个表试试。

On_fire · 发表于 2023-1-10 13:27

本帖最后由 On_fire 于 2023-1-10 13:29 编辑

grf1973 发表于 2023-1-10 13:19
把全数据的附件发上来。可以测试一下做几个表试试。

老师好,

再执行测试一次,

跟19楼比, 为啥会慢了好多?

文件太大了…也不方便…

On_fire · 发表于 2023-1-10 14:18

grf1973 发表于 2023-1-10 13:15
那用Union吧。Range(字符串)里面的字符串好象不能超过255个字符。

老师好,
请问可用2楼的优化结果,
再做一次优化吗?

grf1973 · 发表于 2023-1-10 14:41

思路跟2楼没大的区别，可以看做是优化的结果。

On_fire · 发表于 2023-1-10 14:55

grf1973 发表于 2023-1-10 14:41
思路跟2楼没大的区别，可以看做是优化的结果。

老师好,

*

2楼的代码, 做了优化, 问题1

( 如截图2 )

1.

现在需要优化的关键,

是没有相同元素的行不用输出结果!

比如,

工作表 1想要的结果是:工作表1(2)

工作表 2想要的结果是:工作表2(2)

( 另一个说法: 当A列 = 0值, 不用输出结果 )

*

14楼的代码, 还没有做问题1的优化

( 如截图14 )

grf1973 · 发表于 2023-1-10 15:18

嗯，改过了。

On_fire · 发表于 2023-1-10 15:40

grf1973 发表于 2023-1-10 15:18
嗯，改过了。

感谢大神,
好厉害,
您这再优化的速度, 真的很快…!!!
一千行做测试, 不用3分钟出结果…
( 但结果标不了红, 可能是因为超过26 )

grf1973 · 发表于 2023-1-10 15:55

标不了红也有办法的，把长字符串截取若干小段即可

On_fire · 发表于 2023-1-10 16:06

grf1973 发表于 2023-1-10 15:55
标不了红也有办法的，把长字符串截取若干小段即可

感谢老师,
请问要咋再优化?
*
实在说, 这样的速度足够快, 真的心满意足了!

grf1973 · 发表于 2023-1-10 16:36

应该加句话就行了，判断字符串如果长度差不多到顶，就先标红一下，字符串重新开始。

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

[求助] VBA 代码优化 ( 高难题 )