VBA - Maior(Se..... (matriz)

[Volnei Pereira]

Ola,

Tenho uma planilha com duas abas, uma com 12 mil linhas que é a matriz e outra com 3 mil linhas onde preciso inserir uma formula matricial.

A formula funciona tranquilo, porém gostaria de inserir os valores através de vba e não por formula.

{=MÁXIMO(SE(PLT_TEMP!B:B=PLT!A2;PLT_TEMP!I:I;""))}

 

Sheets("PLT").Range("C2:C" & vEndLin1).FormulaArray = "=MAX(IF(PLT_TEMP!C[-1]=PLT!RC[-2],PLT_TEMP!C[6],""""))"

Por VBA, tentei inserir a formula direto no range das 3 mil linhas, indo da C2 até C3000, porém todas as celulas ficam o o valor da primeira devido a matriz.

Tentei inserir a formula linha a linha através de um FOR/NEXT, porém é muito demorado.

 

Alguem tem o milagre ?