Vba: waarden alfabetisch sorteren

U kunt de volgende basissyntaxis in VBA gebruiken om waarden in een bereik alfabetisch te sorteren:

 Sub SortAlphabetical()
Range(" A1:B11 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, Header:=xlYes
End Sub

Dit specifieke voorbeeld sorteert de rijen in het bereik A1:B11 op basis van de waarden in kolom A alfabetisch (A tot Z).

Als u de waarden in omgekeerde alfabetische volgorde (Z tot A) wilt sorteren, kunt u in plaats daarvan Order1:=xlDescending opgeven.

Houd er rekening mee dat Header:=xlYes aangeeft dat de eerste regel als kopregel moet worden behandeld.

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: waarden alfabetisch sorteren met VBA

Stel dat we de volgende gegevensset in Excel hebben die informatie bevat over verschillende basketbalspelers:

Stel dat we de rijen alfabetisch willen sorteren op teamnaam.

We kunnen hiervoor de volgende macro maken:

 Sub SortAlphabetical()
Range(" A1:B11 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, Header:=xlYes
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Rijen worden nu alfabetisch gesorteerd op teamnaam (A tot Z).

Om rijen in omgekeerde alfabetische volgorde (Z tot A) te sorteren, kunnen we Order1:=xlDescending specificeren:

 Sub SortAlphabetical()
Range(" A1:B11 ").Sort Key1:=Range(" A1 "), Order1:=xlDescending, Header:=xlYes
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Rijen worden nu gesorteerd op teamnaam in omgekeerde alfabetische volgorde (Z tot A).

Opmerking #1 : In dit voorbeeld hebben we op één kolom gesorteerd. U kunt echter meer sleutels opgeven om op meerdere kolommen te sorteren.

Opmerking #2 : U kunt hier de volledige documentatie van de VBA- sorteermethode vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: een blad sorteren op meerdere kolommen
VBA: het aantal rijen binnen bereik tellen
VBA: hoe een kolom te filteren