Доброго времени суток.
Возникла проблема. Пытаюсь записать формулу массива как обычную формулу в макрос с протягиванием до последней активной ячейки - выдаёт ошибку.
" Нельзя установить свойство FormulaArray класса Range ".
Перепробовал множество вариантов, предоставленных нашей всемирной сети, везде безрезультатно.
Помогите пожалуйста, исправьте что не так.
Возникла проблема. Пытаюсь записать формулу массива как обычную формулу в макрос с протягиванием до последней активной ячейки - выдаёт ошибку.
" Нельзя установить свойство FormulaArray класса Range ".
Перепробовал множество вариантов, предоставленных нашей всемирной сети, везде безрезультатно.
Код |
---|
X = Cells(Rows.Count, "c").End(xlUp).Row Range("J7").Select Selection.FormulaArray = _ "=INDEX('Лист1'!R6C20:R3600C20,MATCH(RC[-8]&"" ""&RC[-7],'Лист1'!R6C4:R3500C4&"" ""&'Лист1'!R6C5:R3500C5,0)+IFERROR(MATCH(1,--(OFFSET('Лист1'!R6C20,MATCH('Лист2'!RC[-8]&"" ""&'Лист2'!RC[-7],'Лист1'!R6C4:R3500C4&"" ""&'Лист1'!R6C5:R3500C5,0)-1,0,SUM(IF('Лист1'!R6C4:R3500C4&"" ""&'Лист1'!R6C5:R3500C5=RC[-8]&"" ""&RC[-7],1,0)))<>0),0),1)-1)" Range("J7").AutoFill Destination:=Range("J7:J" & X), Type:=xlFillDefault |