Parece bastante complexo e até acredito que haja solução com matricial...
Entretanto, deixo sugestão com Função Definida pelo Usuário (sem comentários, declarações etc...)
Código abaixo, arquivo anexo.
Function QTDE(n As Range, q As Range) As Double
flin = q.Row
ilin = 2
nivel = n.Value
s = 1
Do While flin >= ilin
If Cells(flin, 5) = nivel Then
s = s * Cells(flin, 4)
nivel = nivel - 1
flin = flin - 1
Else
flin = flin - 1
End If
Loop
QTDE = s
End Function
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 03/07/2017 7:05 pm