VBA 赋值运算速度太慢 请帮忙优化附件代码~谢谢

大英帝国红领巾

附件只是简化的模型，实际的模型大小有100M+。 当Count = 1000+的时候，每个点的运算速度呈边际递减，最大的一个模型需要跑40小时，共有20个这样的模型，因此想请大家帮忙优化下VBA代码，提高速度。

Jaofuan

大概看了下  J 循环没用，可以取消，50次循环的不影响什么速度

大英帝国红领巾

Jaofuan 发表于 2019-12-18 10:45
大概看了下  J 循环没用，可以取消，50次循环的不影响什么速度

J 循环是肯定有用的，应该是我的简化模型不够严谨。实际的i循环有5000+，j循环有20+，output也有10多个，当模型100M的时候，就很慢了。能不能只针对以下几行进行优化，应该是赋值粘贴导致速度慢。多谢~

Sheets("T1").Range("A" & 1 + i & ":B" & 1 + i).Value = Sheets("Results").Range("F2:G2").Value
Sheets("T3").Range("A" & 1 + i & ":B" & 1 + i).Value = Sheets("Results").Range("F2:G2").Value
Sheets("T5").Range("A" & 1 + i & ":B" & 1 + i).Value = Sheets("Results").Range("F2:G2").Value

Sheets("T1").Range("C1").Offset(i, 0) = Sheets("Results").Range("H6").Value
Sheets("T3").Range("C1").Offset(i, 0) = Sheets("Results").Range("H8").Value
Sheets("T5").Range("C1").Offset(i, 0) = Sheets("Results").Range("H10").Value
Sheets("T1").Range("D1").Offset(i, 0) = Sheets("Results").Range("J6").Value
Sheets("T3").Range("D1").Offset(i, 0) = Sheets("Results").Range("J8").Value
Sheets("T5").Range("D1").Offset(i, 0) = Sheets("Results").Range("J10").Value

Jaofuan

大英帝国红领巾 发表于 2019-12-18 10:52
J 循环是肯定有用的，应该是我的简化模型不够严谨。实际的i循环有5000+，j循环有20+，output也有10多个， ...

本来想给你改成数组的，结果一看全是公式套用，我对公式不熟悉，另等高人吧