代码优化

迪尼索斯

ChangeKing7 发表于 2023-3-7 22:21
呃？不用公式的话 vba里的方法或者函数 解决不了问题 我也是没有办法了

VBA如果没有现成函数的话就自己写个。你发个附件算了，搞点模拟数据。

ChangeKing7

excel玉米 发表于 2023-3-7 21:54
假设是数据在sheet1，代码大概如下(没在电脑边，手机上输入)
Sub 输入公式()
Dim Arr,i％

还得请教一下 您写这段示意代码 第二步是把公式赋值给了单元格？

zxsea_7426

excel玉米 发表于 2023-3-7 21:54
假设是数据在sheet1，代码大概如下(没在电脑边，手机上输入)
Sub 输入公式()
Dim Arr,i％

单元格写入公式，数组没有变，最后数组又原值写入单元格??

准提部林

with Range("a2:a" & r)
       .formula ="=VLOOKUP(C2,'表1'!C:I,7,)"
       .value=.value  '若要保留公式...刪此行
end with
其它b列/e列相同作法~~
'=======================
vba絕對可以得到那三個公式所需結果, 只是都要執行刷新~~
'=======================
若要保留公式而提高效能, 則不要每次都刷整列公式,
例如//原有50行公式, 新增30行資料, 則只要補填這30行公式即可~~
或只保留第一行公式, 利用這單元格公式, 只刷第二行至底行, 再粘成值

'=======================

excel玉米

ChangeKing7 发表于 2023-3-8 09:08
还得请教一下 您写这段示意代码 第二步是把公式赋值给了单元格？

公式放入数组，然后将数组写入表中。记住VB A最忌频繁读写单元格，数组是存在内存中，对数组进行操作，速度就快了。

ChangeKing7

excel玉米 发表于 2023-3-8 11:43
公式放入数组，然后将数组写入表中。记住VB A最忌频繁读写单元格，数组是存在内存中，对数组进行操作，速 ...

好的 明白 那若是公式放入数组 您昨天给我示意的代码是不是就不能将公式赋值给单元格range？

ChangeKing7

准提部林 发表于 2023-3-8 11:08
with Range("a2:a" & r)
       .formula ="=VLOOKUP(C2,'表1'!C:I,7,)"
       .value=.value  '若要保 ...

感谢您提供的思路 很受教

准提部林

ChangeKing7 发表于 2023-3-8 12:35
好的 明白 那若是公式放入数组 您昨天给我示意的代码是不是就不能将公式赋值给单元格range？

formula..可以一次刷滿整区
用數組寫入公式再填滿...多此一舉...

在迴圈中寫入公式...一定慢~~

ChangeKing7

准提部林 发表于 2023-3-8 12:48
formula..可以一次刷滿整区
用數組寫入公式再填滿...多此一舉...

您的意思是直接用range.formula 不需要加一层数组？

准提部林

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

14樓就是一次刷A列公式//