Hur sorterar jag automatiskt kolumn efter värde i Excel?

Till exempel har du en inköpstabell enligt skärmbilden nedan. Nu vill du att priskolumnen ska sorteras automatiskt när du anger nya siffror/priser i denna kolumn, hur skulle du kunna lösa det? Här introducerar jag ett VBA-makro för att hjälpa dig att automatiskt sortera en specifik kolumn efter värde i Excel.

Auto sortera kolumn efter värde med VBA

Auto sortera kolumn efter värde med VBA

Detta VBA-makro sorterar all data i en viss kolumn automatiskt så snart du anger nya data eller ändrar värde i kolumnen i Excel.

1. Högerklicka på det aktuella arksnamnet i Tabellfält, och klicka sedan på Visa kod från högerklickmenyn.

2. I dialogrutan Microsoft Visual Basic för applikation som öppnar klistrar du in följande VBA-makrokod i öppningsfönstret.

VBA: Automatisk sorteringskolumn 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

Anmärkningar:
1) I ovanstående vba-kod, B: B betyder att den automatiskt sorterar kolumn B, B1 är den första cellen i kolumn B, B2 är den andra cellen i kolumn B, och du kan ändra dem baserat på dina behov.
2) Utdraget Header:=xlJa på 5:e raden säger till Excel att intervallet du ska sortera har en rubrik, så att den första raden i intervallet inte kommer med vid sortering. Om det inte finns någon rubrik, vänligen ändra den till Header:=xlNo; och ändra Key1:=Range("B2") i 4:e raden till Key1:=Range("B1").

3. Gå sedan tillbaka till kalkylbladet, när du anger ett nytt nummer i Pris-kolumnen eller ändrar befintliga priser sorteras Pris-kolumnen automatiskt i stigande ordning.

Anmärkningar: När du anger ett nytt nummer i kolumnen Pris måste du ange numret i den första tomma cellen under de ursprungliga siffrorna. Om det finns tomma celler mellan det nyinmatade numret och originalnumren samt tomma celler mellan originalnumren, kommer denna kolumn inte att sorteras automatiskt.

Demo: Auto sortera kolumn efter värde med VBA i Excel