按位数要求执行求合并写在相应位置

天地一相 · 发表于 2023-1-21 15:22

本帖最后由天地一相于 2023-1-21 21:06 编辑

感谢帮助！详见截图附件。除夕新春，祝网友们事事顺心事事满意。

PS:想法失败，测试结果：VBA没公式快。

陆离Lowry · 发表于 2023-1-21 16:16

陆离Lowry · 发表于 2023-1-21 16:17

,,,,,,,,,,,,,

天地一相 · 发表于 2023-1-21 16:30

陆离Lowry 发表于 2023-1-21 16:17
,,,,,,,,,,,,,

感谢！请问，我注意到没有定义表格，也就是按键在哪个表里就在哪个表里执行。若我想定义，这个模块需要在sheet3,sheet4,sheet5,sheet6,sheet7 里同时执行，需要如何修改设置？谢谢。

天地一相 · 发表于 2023-1-21 16:36

本帖最后由天地一相于 2023-1-21 16:39 编辑

陆离Lowry 发表于 2023-1-21 16:17
,,,,,,,,,,,,,

测试发现问题了。写入的地址，必须严格限定在 J：L 列里，两旁的列里都有公式，现在发现把这些公式全部数值化了。计算结果是对的。B3:W 那里，W后面跟10003.我是想，用确定性的边界应该能加快速度。谢谢

天地一相 · 发表于 2023-1-21 16:42

陆离Lowry 发表于 2023-1-21 16:17
,,,,,,,,,,,,,

是不是得定义两个数组，一个是B3:B10003的，一个是Q3：W10003. 写回结果需要严格限定在J3：L10003.谢谢

天地一相 · 发表于 2023-1-21 16:48

陆离Lowry 发表于 2023-1-21 16:17
,,,,,,,,,,,,,

测试对比。之前我是用公式完成的，3秒。目前测试你的代码，11秒。是否有办法提速到1秒。谢谢

陆离Lowry · 发表于 2023-1-21 17:05

天地一相发表于 2023-1-21 16:30
感谢！请问，我注意到没有定义表格，也就是按键在哪个表里就在哪个表里执行。若我想定义，这个模块需要在 ...

加一个表的循环啊

陆离Lowry · 发表于 2023-1-21 17:20

如果这代码你要运行11秒，你可以考虑把电脑扔了。

天地一相 · 发表于 2023-1-21 17:23

陆离Lowry 发表于 2023-1-21 17:20
如果这代码你要运行11秒，你可以考虑把电脑扔了。

谢谢，电脑不能扔呀。我是放了10万行数据测试的。需要限制哪些表内执行这个代码

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

[已解决] 按位数要求执行求合并写在相应位置