Okręt podwodny DoTheMath ()
Ciemnawy LastR Długo
Z ActiveSheet
LastR =. Komórka (. Rows.Count, "c"). Końcówka (xlUp). Rząd
. Pasmo ("d2: D" & LastR). Formuła = "=VLOOKUP (PERCENTRANK (C$2: C$" & LastR & _
", C2), {(0), "" D ""; 0.2500001, "" C ""; 0.5000001, "" B ""; 0.7500001, "" A ""}, 2)"
. Pasmo ("B" & (LastR + 2)) = "Suma"
. Pasmo ("c" & (LastR + 2)). Formuła = "=SUM (C2: C" & LastR & ") "
Końcówka Z
Końcówka Okręt podwodny
|