Deze VBA-macro sorteert alle gegevens in een specifieke kolom automatisch zodra u nieuwe gegevens invoert of de waarde in de kolom in Excel wijzigt.

1. Klik met de rechtermuisknop op de huidige bladnaam in het Werkbladtabbalken klik vervolgens op de Bekijk code vanuit het rechtsklikmenu.

2. Plak in het openingsvenster van Microsoft Visual Basic for Application de volgende VBA-macrocode in het openingsvenster.

VBA: kolom automatisch sorteren in Excel

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

Note:
1) In de bovenstaande vba-code, B: B betekent dat het automatisch kolom B zal sorteren, B1 is de eerste cel in kolom B, B2 is de tweede cel in kolom B en u kunt deze wijzigen op basis van uw behoeften.
2) Het fragment Koptekst:=xlJa in de 5e rij vertelt Excel dat het bereik dat u gaat sorteren een koptekst heeft, zodat de eerste rij van het bereik niet wordt meegenomen bij het sorteren. Als er geen koptekst is, verander deze dan in Koptekst:=xlNee; en veranderen Key1:=Bereik ("B2") op de 4e rij naar Key1:=Bereik ("B1").

3. Ga vervolgens terug naar het werkblad, wanneer u een nieuw nummer invoert in de kolom Prijs of bestaande prijzen wijzigt, wordt de kolom Prijs automatisch in oplopende volgorde gesorteerd.

Note: Wanneer u een nieuw nummer invoert in de kolom Prijs, moet u het nummer in de eerste lege cel onder de originele nummers invoeren. Als er lege cellen zijn tussen het nieuw ingevoerde nummer en originele nummers, evenals lege cellen tussen originele nummers, wordt deze kolom niet automatisch gesorteerd.

Sorteer eenvoudig op frequentie van voorvallen in Excel

Kutools voor Excel's Geavanceerd sorteren hulpprogramma ondersteunt het snel sorteren van gegevens op tekstlengte, achternaam, absolute waarde, frequentie, enz. in Excel.