Substrater DoTheMath ()
Obscurcir LastR en tant que longtemps
Avec ActiveSheet
LastR =. Cellules (. Rows.Count, « c »). Extrémité (xlUp). Rangée
. Gamme (« d2 : d » et LastR). Formule = « =VLOOKUP (PERCENTRANK (C$2 : C$ » et LastR et _
« , C2), {0, "" de "" D ; 0.2500001, "" du "" C ; 0.5000001, "" du "" B ; 0.7500001, "" du "" A}, 2) »
. Gamme (« b » et (LastR + 2)) = « total »
. Gamme (« c » et (LastR + 2)). Formule = « =SUM (C2 : C » et LastR et ") «
Extrémité avec
Sous-marin d'extrémité
|