Массивы в макросах

Question

Как бы я изменил следующую формулу на массив в макросе?

Dim lr As Long
lr = Cells(Rows.Count, 1).End(x1Up).Row
.Range (BV2:BV & lr).FormulaR1C1 = "IFERROR(INDEX(RC[12]:RC[15],MATCH(FALSE,ISBLANK(RC[12]:RC[15]),0)),"")"
End With

Answer 1

1. x1up x должно быть xlup со строчными буквами L, а не числом 1.
2. вам нужно будет вставить формулу массива, используя .FormulaArray в первой ячейке, затем перетащить вниз.
3. вам не хватает кавычек в диапазоне
4. " необходимо удвоить в строке формулы.
5. Вся формула должна иметь = для начала строки

---

Dim lr As Long
lr = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("BV2").FormulaArray = "=IFERROR(INDEX(RC[12]:RC[15],MATCH(FALSE,ISBLANK(RC[12]:RC[15]),0)),"""")"
.Range("BV2").AutoFill .Range("BV2:Bv" & lr)