Расчет себестоимости остатка по FIFO

[serjey2128]

Доброго времени суток!

Подскажите, пожалуйста, как рассчитать среднюю стоимость оставшихся после продажи акций по методу FIFO?

На примере:
Первая покупка: 10 акций по цене 10 у.е. за шт.;
Вторая покупка: 10 акций по цене 12 у.е. за шт.;
Третья покупка: 10 акций по цене 15 у.е. за шт.;
Четвертая продажа: 20 акций по цене 13 у.е. за шт.

Т.е. всего куплено 30 акций из них продано 20 акций, первыми из расчета убираются акции купленные первыми за 10 у.е., потом вторые купленные за 12 у.е. и в итоге остается 10 акций купленных по цене 15 у.е.

Прошу помочь не используя VBA.

Файл примера во вложении: Портфель.xlsx


P.S.
Очень красивая и интересная формула, правда для расчета средней стоимости реализованной продукции, была предложена уважаемым MCH в теме:

https://www.programmersforum.ru/showthread.php?t=172465

Можно ли посчитать остаток и его себестоимость используя формулу из 5 строки на листе 1, файл: "себестоимость реализации по FIFO ПРАВИЛЬНО2..xls"?

Формула 5 строки на листе 1:
=СУММПРОИЗВ((($B6:$N6-СУММ($B4:B4)>0)*($B6:$N6-СУММ($B4:B4))-($B6:$N6-$B2:$N2-СУММ($B4:B4)>0)*($B6:$N6-$B2:$N2-СУММ($B4:B4))-($B6:$N6-СУММ($C4:C4)>0)*($B6:$N6-СУММ($C4:C4))+($B6:$N6-$B2:$N2-СУММ($C4:C4)>0)*($B6:$N6-$B2:$N2-СУММ($C4:C4)))*$B3:$N3)/C4

[Igor1961]

FIFO и LIFO актуальны при отсутствии инфляции и прочих внешних факторов (ИМХО) А уж если берете в расчет только одну последнюю продажу... Впрочем, риск - благородное дело

[serjey2128]

Igor1961, Это в примере одна продажа, а на самом деле их может быть несколько и располагаться они могут между покупками.)