Hvordan sorterer man automatisk kolonne efter værdi i Excel?
For eksempel har du en købstabel som vist nedenfor. Nu vil du have at kolonnen Pris sorteres automatisk når du indtaster nye tal/priser i denne kolonne, hvordan kunne du løse det? Her introducerer jeg en VBA-makro for at hjælpe dig med at automatisk sortere en specifik kolonne efter værdi i Excel.
Sorter automatisk kolonne efter værdi med VBA
Sorter automatisk kolonne efter værdi med VBA
Denne VBA-makro sorterer alle data i en bestemt kolonne automatisk, så snart du indtaster nye data eller ændrer værdi i kolonnen i Excel.
1. Højreklik på det aktuelle arknavn i Ark faneblad, og klik derefter på Vis kode fra højreklikmenuen.
2. I den åbne Microsoft Visual Basic til applikationsdialogboks skal du indsætte følgende VBA-makrokode i åbningsvinduet.
VBA: Automatisk sorteringskolonne i 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
Bemærk:
1) I ovenstående vba-kode, B: B betyder, at den automatisk sorterer kolonne B, B1 er den første celle i kolonne B, B2 er den anden celle i kolonne B, og du kan ændre dem baseret på dine behov.
2) Uddraget Overskrift:=xlJa i 5. række fortæller Excel, at det område, du vil sortere, har en overskrift, således at den første række i området ikke kommer med ved sortering. Hvis der ikke er nogen overskrift, skal du ændre den til Overskrift:=xlNr; og ændre Key1:=Range("B2") i 4. række til Key1:=Range("B1").
3. Gå derefter tilbage til regnearket, når du indtaster et nyt nummer i kolonnen Pris eller ændrer eksisterende priser, sorteres Pris-kolonnen automatisk i stigende rækkefølge.
Bemærk: Når du indtaster et nyt tal i kolonnen Pris, skal du indtaste tallet i den første tomme celle under de oprindelige tal. Hvis der er tomme celler mellem det nye indtastede tal og de originale tal samt tomme celler mellem de originale tal, sorteres denne kolonne ikke automatisk.
Demo: Sorter automatisk kolonne efter værdi med VBA i Excel
Sorter let efter hyppigheden af forekomster i Excel
Kutools til Excel Avanceret sortering værktøj understøtter hurtigt at sortere data efter tekstlængde, efternavn, absolutte værdi, frekvens osv. i Excel.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!