Заполните большой круг клеток с той же формулой?

Question

Я печатаю формулы до 8000 строк и заданного количества столбцов. Я использую два цикла for для вывода формул по столбцам. Хотя код работает, его завершение занимает очень много времени.

'N is a value that is supplied by the user and can be large
 For j = 1 To N                                               
     For Z = 50 To 8050                                               
 Cells(Z, j + 1).FormulaR1C1 = "=3*R31C[0]*(R23C[0]/1000)*((R15C[-1]+RC1)/SQRT(3)/(v_RMT*1000)/cos_phi)^2"
     Next Z
Next j

Есть ли более быстрый способ выполнить эту задачу?

Answer 1

Нет необходимости в петле:

With ActiveSheet
    .Range(.Cells(50, 2),.Cells(8050,N+1)).FormulaR1C1 = "=3*R31C[0]*(R23C[0]/1000)*((R15C[-1]+RC1)/SQRT(3)/(v_RMT*1000)/cos_phi)^2"
End With