Sub DoTheMath ()
Затемните LastR как длиной
С ActiveSheet
LastR =. Клетки (. Rows.Count, «c»). Конец (xlUp). Рядок
. Ряд («d2: d» & LastR). Формула = «=VLOOKUP (PERCENTRANK (C$2: C$» & LastR & _
«, C2), {0, "" "" d; 0.2500001, "" c ""; 0.5000001, "" b ""; 0.7500001, "" a ""}, 2)»
. Ряд («b» & (LastR + 2)) = «итог»
. Ряд («c» & (LastR + 2)). Формула = «=SUM (C2: C» & LastR & ") «
Конец с
Подводная лодка конца
|