代码优化

ChangeKing7

请教各位，如下代码是先公式传到数组 然后通过数组传给单元格，r值在1万以上，请问此段代码能否优化提高运行速度？谢谢！

For k = 2 To r

       arra(k) = "=VLOOKUP(C" & k & ",'表1'!C:I,7,)"

       arrb(k) = "=IF(SUMIF('表1'!C:C,C" &k & " ,'表1'!AH:AH)>0,1,0)"

       arre(k) = "=SUMIFS('表1'!O:O,'表1'!C:C,C" & k & ",'表1'!$AG:$AG,""<>不统计"")"

       Range("a" & k) = arra(k)

       Range("b" & k) = arrb(k)

       Range("e" & k) = arre(k)   

   Next

excel玉米

首先将表格数值范围读入数组，在数组中循环写入公式，完毕后再将数组写入表格

迪尼索斯

用了VBA就不要用公式了

excel玉米

假设是数据在sheet1，代码大概如下(没在电脑边，手机上输入)
Sub 输入公式()
Dim Arr,i％
With sheet1
Arr＝.usedrange
For i=2 to ubound(arr)
     .range("A" & i)= "=VLOOKUP(C" & i & ",'表1'!C:I,7,)"
      .Range("B" & i) = "=IF(SUMIF('表1'!C:C,C" & i & " ,'表1'!AH:AH)>0,1,0)"
     .Range("E" & i)= "=SUMIFS('表1'!O:O,'表1'!C:C,C" & i & ",'表1'!$AG:$AG,""<>不统计"")"
Next i
.Range("A1").Resize(ubound(Arr),Ubound(Arr,2))=Arr
End with
End sub

ChangeKing7

excel玉米 发表于 2023-3-7 21:14
首先将表格数值范围读入数组，在数组中循环写入公式，完毕后再将数组写入表格

能给写几条代码示意一下吗

excel玉米

ChangeKing7 发表于 2023-3-7 21:56
能给写几条代码示意一下吗

已经发出来了，正在审核中

excel玉米

迪尼索斯 发表于 2023-3-7 21:42
用了VBA就不要用公式了

这位兄弟说得对，毕竞万条以上数据的公式会影响电脑响应速度

ChangeKing7

excel玉米 发表于 2023-3-7 22:09
这位兄弟说得对，毕竞万条以上数据的公式会影响电脑响应速度

呃？不用公式的话 vba里的方法或者函数 解决不了问题 我也是没有办法了

ChangeKing7

excel玉米 发表于 2023-3-7 22:07
已经发出来了，正在审核中

感谢感谢 费心了

zxsea_7426

用公式还用代码来做，速度一点都没有快多少。还不如一行用公式，其他复制公式，然后保留一行公式其他复制粘贴成数值，下次需要再次运算再复制保留的公式，再重复这个操作。反正公式一多，超级卡，我是因为这个原因转过来学习代码的。