Sub DoTheMath ()
Dunkla LastR som Long
Med ActiveSheet
LastR =. Celler (. Rows.Count, ”c”). Avsluta (xlUp). Ro
. Spänna (”d2: D” & LastR). Formel = ”=VLOOKUP (PERCENTRANK (C$2: C$” & LastR & _,
”C2), {0, "" för "" D; 0.2500001 "" för "" C; 0.5000001 "" för "" B; 0.7500001 "" för "" A}, 2)”,
. Spänna (”b” & (LastR + 2)) = ”slutsumma”,
. Spänna (”c” & (LastR + 2)). Formel = ”=SUM (C2: C” & LastR &”) ”,
Avsluta med
Avsluta suben
|