Sub DoTheMath ()
Oscurare LastR come lungamente
Con ActiveSheet
LastR =. Cellule (. Rows.Count, “c„). Estremità (xlUp). Fila
. Gamma (“d2: d„ & LastR). Formula = “=VLOOKUP (PERCENTRANK (C$2: C$„ & LastR & _
“, C2), {0, "" del "" D; 0.2500001, "" del "" C; 0.5000001, "" del "" B; 0.7500001, "" del "" A}, 2)„
. Gamma (“b„ & (LastR + 2)) = “totale„
. Gamma (“c„ & (LastR + 2)). Formula = “=SUM (C2: C„ & LastR & ") “
Estremità con
Sommergibile dell'estremità
|