代码优化

准提部林 · 发表于 2023-3-8 13:27

ChangeKing7 发表于 2023-3-8 13:05
您的意思是直接用range.formula 不需要加一层数组？

做個簡單例//

TEST001.rar (8.09 KB, 下载次数: 14)

ChangeKing7 · 发表于 2023-3-8 13:31

准提部林发表于 2023-3-8 13:27
做個簡單例//

彻底明白了我再改改我的代码感谢老师

excel玉米 · 发表于 2023-3-9 16:55

当初的代码有点问题，应该是用数组单位来写入公式的。
正确代码如下，经两段代码对比，1万行以内用的时间还是用数组速度快。

这个是用数组的时间

这个是用一次刷入公式所用时间

excel玉米 · 发表于 2023-3-9 16:59

删掉.value=.value 所用时间

准提部林 · 发表于 2023-3-9 21:17

excel玉米发表于 2023-3-9 16:59
删掉.value=.value 所用时间

換個方式看看..瞎寫.沒實測
t=timer
r=10000
Range("a2") = "=VLOOKUP(C2,'表1'!C:I,7,)"
Range("b2") = "=IF(SUMIF('表1'!C:C,C2 ,'表1'!AH:AH)>0,1,0)"
Range("c2") = "=SUMIFS('表1'!O:O,'表1'!C:C,C2,'表1'!$AG:$AG,""<>不统计"")"
Range("a2:c2").copy Range("a3:c" & r)
msgbox timer-t

ChangeKing7 · 发表于 2023-3-10 11:30

excel玉米发表于 2023-3-9 16:55
当初的代码有点问题，应该是用数组单位来写入公式的。
正确代码如下，经两段代码对比，1万行以内用的时间 ...

亲测确实数组要快很多

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

[已解决] 代码优化

评分