Toto makro VBA automaticky seřadí všechna data v konkrétním sloupci, jakmile zadáte nová data nebo změníte hodnotu ve sloupci v aplikaci Excel.

1. Klikněte pravým tlačítkem na název aktuálního listu v Lišta Tabulátor, a potom klepněte na tlačítko Zobrazit kód z nabídky pravého tlačítka myši.

2. V úvodním dialogovém okně Microsoft Visual Basic pro aplikaci vložte do úvodního okna následující kód makra VBA.

VBA: Sloupec automatického řazení v aplikaci 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

Poznámka:
1) Ve výše uvedeném kódu vba B: B znamená, že automaticky seřadí sloupec B, B1 je první buňka ve sloupci B, B2 je druhá buňka ve sloupci B a můžete je změnit podle svých potřeb.
2) Úryvek Záhlaví:=xlYes v 5. řádku sděluje Excelu, že rozsah, který budete třídit, má záhlaví, takže první řádek rozsahu nebude při řazení zahrnut. Pokud záhlaví neexistuje, změňte jej na Záhlaví:=xlNo; a změnit Key1:=Range("B2") ve 4. řadě do Key1:=Range("B1").

3. Poté se vraťte zpět do listu, když ve sloupci Cena zadáte nové číslo nebo upravíte stávající ceny, sloupec Cena se automaticky seřadí vzestupně.

Poznámka: Když zadáte nové číslo do sloupce Cena, musíte číslo zadat do první prázdné buňky pod původními čísly. Pokud jsou mezi nově zadaným číslem a původními čísly prázdné buňky a také prázdné buňky mezi původními čísly, nebude tento sloupec setříděn automaticky.

Snadno seřaďte podle frekvence výskytu v aplikaci Excel

Kutools pro Excel Rozšířené řazení nástroj podporuje rychlé třídění dat podle délky textu, příjmení, absolutní hodnoty, frekvence atd. v aplikaci Excel.