Ta makro VBA bo samodejno razvrstil vse podatke v določenem stolpcu takoj, ko vnesete nove podatke ali spremenite vrednost v stolpec v Excelu.

1. Z desno miškino tipko kliknite trenutno ime lista v Vrstica z zavihki listain nato kliknite Ogled kode v meniju z desnim klikom.

2. V začetno pogovorno okno Microsoft Visual Basic for Application prilepite naslednjo kodo makra VBA v začetno okno.

VBA: Stolpec za samodejno razvrščanje v Excelu

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

Opombe:
1) V zgornji kodi vba B: B pomeni, da bo samodejno razvrstil stolpec B, B1 je prva celica v stolpcu B, B2 je druga celica v stolpcu B in jih lahko spremenite glede na svoje potrebe.
2) Delček Glava:=xlDa v 5. vrstici sporoči Excelu, da ima obseg, ki ga boste razvrstili, glavo, tako da prva vrstica obsega ne bo vključena pri razvrščanju. Če ni glave, jo spremenite v Glava:=xlŠt; in spremeniti Ključ1:=Razpon("B2") v 4. vrsti do Ključ1:=Razpon("B1").

3. Nato se vrnite na delovni list, ko vnesete novo številko v stolpec Cena ali spremenite obstoječe cene, bo stolpec Cena samodejno razvrščen v naraščajočem vrstnem redu.

Opombe: Ko v stolpec Cena vnesete novo številko, morate številko vnesti v prvo prazno celico pod prvotnimi številkami. Če so prazne celice med novo vneseno številko in originalnimi številkami ter prazne celice med originalnimi številkami, ta stolpec ne bo samodejno razvrščen.

Enostavno razvrstite po pogostnosti pojavitev v Excelu

Kutools za Excel Napredno razvrščanje pripomoček podpira hitro razvrščanje podatkov po dolžini besedila, priimku, absolutni vrednosti, pogostosti itd.