我有一个大循环,可以迭代 1000 个数据加载.. 而不是尽可能高效地执行此操作(将输出保存到数组,然后在最后打印),我一直在将值写入工作表,然后复制并粘贴到另一个每次运行的工作表。
我有几个理论和实践问题。
继续复制/粘贴每一行是否更快,除非在当前工作表中这样做,然后在最后复制并粘贴最终数据表?
如何将此函数重写为工作表公式。我目前不使用数组的原因是我不知道如何将此公式重写为非单元格公式。
Dim avg_rng As Range
Set avg_rng = Sheets("OrdCloseTrade").Range(Cells(strt_pt(end_ct), j), Cells(end_pt(end_ct) -
1, j))
'Debug.Print sum_rng
Sheets("OrdCloseTrade").Cells(47, lent + 2).FormulaArray = _
"=AVERAGE(IF(ISNUMBER(" & avg_rng.Address & ")," & avg_rng.Address & "))"