for循环运行太慢，如何提高运行速度？

megaszeto · 发表于 2019-10-6 16:52

多个表，表10A列与表6“JSM”列均为单号，for循环匹配表10与表6对应的单号计算相应数据，运行计算速度太慢了，数据有上万行，，请朋友们帮下忙改下，该如何优化提高速度，

MSB = Sheet10.Range("A" & Rows.Count).End(xlUp).Row
MSC = Sheet6.Range(JSM & Rows.Count).End(xlUp).Row

For i = 1 To MSC
For k = 1 To MSB

If Sheet10.Range("A" & i) = Sheet6.Range(JSM & k) Then
Sheet10.Range("AK" & i) = (Sheet6.Range(JSC & k) + Sheet6.Range(JSD & k)) + Sheet6.Range(JSE & k) + (Sheet6.Range(JSK & k) - Sheet6.Range(JSD & k) - Sheet6.Range(JSL & k)) + Sheet6.Range(JSL & k)
Sheet10.Range("AL" & i) = Sheet6.Range(JSA & k)+Sheet6.Range(JSB & k)+Sheet10.Range("AQ" & i)
End If

Next k
Next i

39660519 · 发表于 2019-10-6 16:57

FOR循环不慢，慢的是你直接读写单元格

liulang0808 · 发表于 2019-10-6 17:10

建议：
1、关闭屏幕刷新
2、双侧for循环，如果满足条件是否可以跳出循环，楼主根据实际确定
3、改成数组，提速
供参考

风中稻草人 · 发表于 2019-10-6 17:16

for也好，do也好，并不会慢，慢的话，应该是数据处理不合理。像这种数据处理的，用数组在内存中直接处理就比较快了。个人感觉！

朱荣兴 · 发表于 2019-10-6 17:41

提示: 作者被禁止或删除内容自动屏蔽

megaszeto · 发表于 2019-10-6 18:07

liulang0808 发表于 2019-10-6 17:10
建议：
1、关闭屏幕刷新
2、双侧for循环，如果满足条件是否可以跳出循环，楼主根据实际确定

请问如何改成数组呢，我新手，不太会

dushaguo · 发表于 2019-10-6 18:16

还是导数据库快，一个SQL语句的事

liulang0808 · 发表于 2019-10-6 20:24

megaszeto 发表于 2019-10-6 18:07
请问如何改成数组呢，我新手，不太会

上传附件，并结合自己的需求举例描述

zss427607 · 发表于 2019-10-7 10:48

都是大神级

处理逻辑判断建议字典数组

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

[求助] for循环运行太慢，如何提高运行速度？

评分

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-10-6 17:41 来自手机 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报