Hoe gegevens in omgekeerde volgorde rangschikken in Excel?
In Excel, met behulp van de standaard =RANK(cel, bereik) formule wordt uw data zo gerangschikt dat de grootste waarde een rang van 1 krijgt, terwijl de kleinste waarde de laagste rangnummer krijgt. Er zijn echter situaties waarin u deze logica misschien wilt omkeren, zodat de kleinste waarde de hoogste rang krijgt en de grootste de laatste rang, zoals geïllustreerd in de onderstaande schermafbeelding. Dit kan bijzonder nuttig zijn wanneer u data analyseert waarbij lagere waarden betere prestaties vertegenwoordigen, zoals race tijden, kosten of foutaantallen.
Gegevens in omgekeerde volgorde rangschikken | VBA Code: Automatisch omgekeerde rangen toewijzen
Gegevens in omgekeerde volgorde rangschikken
Om een omgekeerde rangschikking uit te voeren in Excel, kunt u de standaard RANK-formule lichtjes aanpassen door een extra argument op te geven. Deze aanpak stelt u in staat om eenvoudig gegevens van kleinste naar grootste te rangschikken, in plaats van de standaardvolgorde.
Selecteer een lege cel waar u het resultaat van de omgekeerde rangschikking wilt laten verschijnen. Stel dat uw gegevensbereik zich bevindt in cellen B2 tot B10, voer dan de volgende formule in de eerste cel naast uw gegevens in (bijvoorbeeld in cel C2):
=RANK(B2,$B$2:$B$10,1)Na het invoeren van de formule, druk op Enter. Om de formule toe te passen op de andere cellen in uw kolom, gebruikt u het vulhandvat: plaats uw muis over de rechterbenedenhoek van de cel waar u de formule hebt ingevoerd (C2), en als de cursor verandert in een plusteken, sleept u het omlaag om de resterende cellen in het bereik naast uw gegevens te vullen (in dit voorbeeld omlaag tot C10). 
Als uw gegevensbereik anders is, past u eenvoudig de celverwijzingen binnen de formule aan om overeen te komen met uw daadwerkelijke gegevens. Onthoud dat als u dubbele waarden heeft, de functie RANK dezelfde rang zal toekennen aan die waarden, en dat de volgende rangnummers worden overgeslagen (bijvoorbeeld, als er twee items gelijk zijn voor de tweede plaats, zal de volgende rang vier zijn).
Omgekeerde rangschikking is vooral waardevol wanneer u de kleinste waarden of snelste tijden wilt benadrukken, en het werkt goed op datasets waarbij gelijke scores acceptabel of verwacht zijn.
VBA Code: Automatisch omgekeerde rangen toewijzen
Voor grotere datasets of scenario's waarin uw gegevens vaak worden bijgewerkt en u een meer geautomatiseerde oplossing nodig hebt, kunt u VBA-code gebruiken om snel en efficiënt omgekeerde rangen toe te wijzen. Deze methode is ideaal voor gebruikers die bekend zijn met kleine hoeveelheden programmeren en richten op het elimineren van repetitieve handmatige stappen.
1. Open de VBA-editor door te klikken op Ontwikkelaarstools > Visual Basic. In het venster Visual Basic for Applications, klik op Invoegen > Module en plak de volgende code in het modulevenster:
Sub AssignReverseRank()
Dim dataRange As Range
Dim outputRange As Range
Dim i As Long
Dim j As Long
Dim temp As Variant
Dim arr As Variant
Dim sortedArr As Variant
Dim rankArr() As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set dataRange = Application.InputBox("Select the data range to rank (single column):", xTitleId, "", Type:=8)
If dataRange Is Nothing Then Exit Sub
Set outputRange = Application.InputBox("Select the first cell for output ranks:", xTitleId, "", Type:=8)
If outputRange Is Nothing Then Exit Sub
arr = dataRange.Value
ReDim rankArr(1 To UBound(arr, 1), 1 To 1)
sortedArr = arr
' Sort the array in ascending order
For i = 1 To UBound(sortedArr, 1) - 1
For j = i + 1 To UBound(sortedArr, 1)
If sortedArr(i, 1) > sortedArr(j, 1) Then
temp = sortedArr(i, 1)
sortedArr(i, 1) = sortedArr(j, 1)
sortedArr(j, 1) = temp
End If
Next j
Next i
' Assign reverse ranks
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(sortedArr, 1)
If arr(i, 1) = sortedArr(j, 1) Then
rankArr(i, 1) = j
Exit For
End If
Next j
Next i
outputRange.Resize(UBound(rankArr, 1), 1).Value = rankArr
End Sub2. Om de macro uit te voeren, klik op de 
Uitvoeren-knop of druk op F5. U wordt gevraagd om uw gegevensbereik te selecteren (kies een enkele kolom die u in omgekeerde volgorde wilt rangschikken) en selecteer vervolgens de eerste cel waar u de rangschikkingresultaten wilt uitvoeren. Klik op OK na elke selectie.
Deze macro sorteert uw gegevens in oplopende volgorde en wijst omgekeerde rangen toe, waarbij de kleinste waarde rang 1 krijgt. Het is vooral handig om duizenden items in één keer te rangschikken, of om rangschikken te automatiseren in rapporten die regelmatig worden vernieuwd.
Wanneer u deze macro gebruikt, controleer dan of uw gegevens aaneengesloten zijn en alleen numerieke waarden bevatten. Eventuele niet-numerieke of lege cellen kunnen resulteren in onjuiste uitkomsten, dus het is het beste om eerst uw gegevens schoon te maken. Ook is het een goede voorzorgsmaatregel om uw werkmap op te slaan voordat u macro's uitvoert om onbedoelde wijzigingen te voorkomen.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen