Проблема с копированием вставки формулы массива в VBA

Question

Я пытаюсь поместить формулу vba, которая помогает мне найти медиану для диапазона ячеек, если эти значения относятся к определенной категории.

Вот образец листа с данными:

Это код, который я хочу поместить в ячейку B2, а затем иметь возможность перетаскивать его до B7:

=MEDIAN(IF(F2:F100=A2,G2:G100),"NA"))

Я пытался бесчисленные способы, но не могут найти свое решение.

Заранее спасибо за помощь. Mayank

Answer 1

Для Vba попробуйте свойство FormulaArray.

Sheet1.Range("B2").FormulaArray = "=MEDIAN(IF(I:I=A2,J:J))"
Sheet1.Range("B2").Copy
Sheet1.Range("B3:B4").PasteSpecial Paste:=xlPasteFormulas