VBA: ошибка несоответствия типов с FunctionaArray

Question

Получено несоответствие типов (ошибка времени выполнения 13) в этом коде, и я не могу его решить.

LastWeek = 10
ActiveCell.FormulaR1C1 = LastWeek + 1
Range(Cells(ActiveCell.Row + 1, ActiveCell.Column), Cells(ActiveCell.Row + 1, _
        ActiveCell.Column)).FormulaArray _
        = "=INDEX(R2C5:R81C10, MATCH(R4C12&R4C13&R3C15,R1C2:R81C2&R1C3:R81C3&R1C4:R81C4,0)-1,MATCH(R4C14,R1C5:R1C10,0))" / "=INDEX(R2C5:R81C10, MATCH(R4C12&R4C13&R3C15,R1C2:R[72]C2&R1C3:R[72]C3&R1C4:R[72]C4,0)-1, 1)" * 100

Я застрял с этой частью на долгое время и не знаю, как ее решить.Это.Любая помощь будет высоко оценена.

Answer 1

Почему вы используете кавычки в тексте формулы до и после "/" и "*"?

Вы ищете эту формулу?

Range(Cells(ActiveCell.Row + 1, ActiveCell.Column), Cells(ActiveCell.Row + 1, _
        ActiveCell.Column)).FormulaArray _
        = "=INDEX(R2C5:R81C10, MATCH(R4C12&R4C13&R3C15,R1C2:R81C2&R1C3:R81C3&R1C4:R81C4,0)-1,MATCH(R4C14,R1C5:R1C10,0))/INDEX(R2C5:R81C10, MATCH(R4C12&R4C13&R3C15,R1C2:R[72]C2&R1C3:R[72]C3&R1C4:R[72]C4,0)-1, 1) * 100"