VBA 代码优化 ( 高难题 )

On_fire · 发表于 2023-1-9 13:07

VBA 代码优化 ( 高难题 )

*

文件是老师的代码, 完全解决了由上到下顺序,

用每一行, 与以外行之间, 查找相同元素的问题!

( 注*行的每一个单元格/元素, 与其他所有行之间的元素, 做遍历配对 )

*

1.

现在需要优化的关键,

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

比如,

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

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

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

*

2.

因为行数太多 (约3千行),

执行代码出结果的时间太长,

看看有没有更好的算法可优化?

*

恳请大神, 老师出手帮忙...

leirongqin · 发表于 2023-1-9 15:53

老师好，问题1：在原文件基础上加一个条件，应该是解决问题了附件效果和你给的样板一样，你测试一下看看。问题2：加了个Union，应该可以提速不少。

ykcbf1100 · 发表于 2023-1-9 16:28

看了一下，感觉第1个问题加个条件判断就可以了，第2个问题，感觉可优化的空间也不大了，你费时主要在于设置单元格、标色等操作。

On_fire · 发表于 2023-1-9 16:47

leirongqin 发表于 2023-1-9 15:53
老师好，问题1：在原文件基础上加一个条件，应该是解决问题了附件效果和你给的样板一样，你测试一下看看。 ...

谢谢老师, 等会再测试看看..

On_fire · 发表于 2023-1-9 16:50

ykcbf1100 发表于 2023-1-9 16:28
看了一下，感觉第1个问题加个条件判断就可以了，第2个问题，感觉可优化的空间也不大了，你费时主要在于设置 ...

原来是这样啊?
一楼老师的代码, 用1000行测试, 用了半个小时左右才出结果…

leirongqin · 发表于 2023-1-9 16:56

ykcbf1100 发表于 2023-1-9 16:28
看了一下，感觉第1个问题加个条件判断就可以了，第2个问题，感觉可优化的空间也不大了，你费时主要在于设置 ...

老师好。问题2：可以用Union合并统一赋值

On_fire · 发表于 2023-1-9 17:07

leirongqin 发表于 2023-1-9 15:53
老师好，问题1：在原文件基础上加一个条件，应该是解决问题了附件效果和你给的样板一样，你测试一下看看。 ...

老师好,
你的代码是快了很多,
但有个问题是源数据原本每一行有小部分, 最多有约100个单元格,
这些特长的行, 中间也有空格
*
现在的AA1列, 输出的结果, 少了一大段数源数据?

leirongqin · 发表于 2023-1-9 17:09

On_fire 发表于 2023-1-9 17:07
老师好,
你的代码是快了很多,
但有个问题是源数据原本每一行有小部分, 最多有约100个单元格,

可以提供新的附件？

leirongqin · 发表于 2023-1-9 17:14

On_fire 发表于 2023-1-9 17:07
老师好,
你的代码是快了很多,
但有个问题是源数据原本每一行有小部分, 最多有约100个单元格,

我并没有改变原文件代码的算法，只是加一个条件判断和Union合并区域赋值。所以不知道你说的数据少了是什么原因。

On_fire · 发表于 2023-1-9 17:22

leirongqin 发表于 2023-1-9 17:14
我并没有改变原文件代码的算法，只是加一个条件判断和Union合并区域赋值。所以不知道你说的数据少了是什 ...

老师好,
找到原因, 已经改好了, 是下面这句,
arr = [A1].CurrentRegion
改成, arr = Sheets(1).UsedRange

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

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