Jak automaticky třídit sloupec podle hodnoty v aplikaci Excel?
Máte například nákupní tabulku, jak je znázorněno na obrázku níže. Nyní chcete, aby se sloupec Cena seřadil automaticky, když do tohoto sloupce zadáte nová čísla/ceny, jak byste to mohli vyřešit? Zde představím makro VBA, které vám pomůže automaticky seřadit konkrétní sloupec podle hodnoty v Excelu.
Automatické řazení sloupce podle hodnoty pomocí VBA
Automatické řazení sloupce podle hodnoty pomocí VBA
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.
Ukázka: Automatické řazení sloupce podle hodnoty pomocí VBA v aplikaci Excel
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.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!