VBA运行代码速度很慢，求解决

Cathlyn丶 · 发表于 2023-6-3 11:36

运行“Sheet1数据源”的VBA时，效率非常的慢，怎么优化代码提高运行时效呢，求各位老师帮忙看看代码

liulang0808 · 发表于 2023-6-3 11:41

楼主设置下屏幕刷新属性，另外表格内有大量公式，拷贝数据会影响速度
在不影响结果的前提下，可以先设置手动计算，然后设置自动计算。

如果还是感觉慢，可以的话换数组处理吧

彼岸归航 · 发表于 2023-6-3 11:43

用数组

Cathlyn丶 · 发表于 2023-6-3 14:03

liulang0808 发表于 2023-6-3 11:41
楼主设置下屏幕刷新属性，另外表格内有大量公式，拷贝数据会影响速度
在不影响结果的前提下，可以先设置手 ...

版主你好，电脑是手提的刷新率只有60。先设置手动计算再自动计算这个是什么，不是很了解。更换为数组的话运行显示错误“13”，类型不匹配。图片是代码可以帮忙简单看下嘛，因为需要经常使用，为了节省操作步骤和时间则需要保留后面的公式和内容用来核对数据的.

Cathlyn丶 · 发表于 2023-6-3 14:04

彼岸归航发表于 2023-6-3 11:43
用数组

更换了一下，显示运行错误13，类型不匹配。难搞

zpy2 · 发表于 2023-6-3 14:25

能模拟一下需求结果吗？是不是需要数据库查询？

Cathlyn丶 · 发表于 2023-6-3 14:33

zpy2 发表于 2023-6-3 14:25
能模拟一下需求结果吗？是不是需要数据库查询？

不用的，源数据就在SHEET1里面。VBA代码就是做了按D列的单元格内容分成3个sheet表。分别是D列中有+号的分到组合产品表，是空的分到SKU为空表，剩下的分到单产品表。这个代码是可以正常运行的，就是效率比较慢，大概就是1/s才能跑10条数据。我们数据比较多，最少都几万起的，所以需要再优化一下代码。按楼上的用数组改了代码之后显示类型错误，没找到原因，图片代码放上去了，待审核中。

吴中泉 · 发表于 2023-6-3 16:14

Cathlyn丶发表于 2023-6-3 14:04
更换了一下，显示运行错误13，类型不匹配。难搞

如图所示，速度很快

吴中泉 · 发表于 2023-6-3 16:18

附件：

NA复核表.rar (829.65 KB, 下载次数: 11)

吴中泉 · 发表于 2023-6-3 16:20

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

[求助] VBA运行代码速度很慢，求解决