Sub DoTheMath ()
Escurecer LastR como por muito tempo
Com ActiveSheet
LastR =. Pilhas (. Rows.Count, “c”). Extremidade (xlUp). Fileira
. Escala (“d2: d” & LastR). Fórmula = “=VLOOKUP (PERCENTRANK (C$2: C$” & LastR & _
“, C2), {0, "" do "" D; 0.2500001, "" do "" C; 0.5000001, "" do "" B; 0.7500001, ""} do "" A, 2)”
. Escala (“b” & (LastR + 2)) = “total”
. Escala (“c” & (LastR + 2)). Fórmula = “=SUM (C2: C” & LastR & ") “
Extremidade com
Submarino da extremidade
|