求优化一个VBA语句，可有偿帮忙

蕲春小林 · 发表于 2024-5-18 14:31

现有的表格，太卡了，每次生成表格都要10多分钟，求优化一下VBA语句，可有偿帮忙

蕲春小林 · 发表于 2024-5-18 16:35

重新上传完整附件，附件内容有删减

zpy2 · 发表于 2024-5-18 15:26

生成表格都要10多分钟

如果需要提速感觉有点难，可能需要vba以外其他方法

zpy2 · 发表于 2024-5-18 15:30

zpy2 发表于 2024-5-18 15:26
生成表格都要10多分钟

如果需要提速感觉有点难，可能需要vba以外其他方法

Filename = Dir(ThisWorkbook.Path & "\销存.xlsx")
另外，附件是不是没有上传完整，无法重现楼主的问题

lcluck2002 · 发表于 2024-5-18 15:36

建议把实现过程分解，把每一步的实现步骤用文字描述出来。不然，以代码去反推业务逻辑似乎太困难了。

蕲春小林 · 发表于 2024-5-18 16:33

lcluck2002 发表于 2024-5-18 15:36
建议把实现过程分解，把每一步的实现步骤用文字描述出来。不然，以代码去反推业务逻辑似乎太困难了。

可以地球聊，这里一下子说不清楚，别人的代码也不是我写的。但我知道大概要什么样子。174665795

蕲春小林 · 发表于 2024-5-18 16:36

zpy2 发表于 2024-5-18 15:30
Filename = Dir(ThisWorkbook.Path & "\销存.xlsx")
另外，附件是不是没有上传完整，无法重现楼主的问题

大神，重新上传了，辛苦帮看一眼。在6楼

崔晓丹 · 发表于 2024-5-20 12:26

用你的原始表格运行，用时87秒；将你的原始表内容复制到一个新的excel表格中（不保留格式，将表格大小由原来的1600kb降低到30K）再运行用时54秒。

ykcbf1100 · 发表于 2024-5-20 16:53

如果不是经常进行表格生成，如果原代码能出正确的结果，10分钟应该能接受吧。

蕲春小林 · 发表于 2024-5-23 09:37

崔晓丹发表于 2024-5-20 12:26
用你的原始表格运行，用时87秒；将你的原始表内容复制到一个新的excel表格中（不保留格式，将表格大小由原 ...

数据我删减了很多，真实用时要10多分钟

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

[求助] 求优化一个VBA语句，可有偿帮忙