Note: The other languages of the website are Google-translated. Back to English

Jak řadit více řádků nebo sloupců samostatně najednou v aplikaci Excel?

V aplikaci Excel můžete použít funkci řazení k seřazení pouze jednoho řádku nebo sloupce v rozsahu sloupců, ale pokud potřebujete řadit více řádků nebo sloupců samostatně najednou, aby se zobrazil následující snímek obrazovky. Existují nějaké rychlé způsoby, jak vyřešit tento úkol v aplikaci Excel?

doc seřadit více sloupců 1

Řadit více sloupců samostatně najednou pomocí kódu VBA

Řadit více řádků samostatně najednou pomocí kódu VBA


šipka modrá pravá bublina Řadit více sloupců samostatně najednou pomocí kódu VBA

Chcete-li řadit více sloupců samostatně ve vzestupném pořadí, může vám pomoci následující kód VBA, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Řadit více sloupců samostatně najednou:

Sub SortIndividualJR()
'Updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    Application.ScreenUpdating = False
    For Each yRg In xRg
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=yRg, Order:=xlAscending
            .SetRange ws.Range(yRg, yRg.End(xlDown))
            .Header = xlNo
            .MatchCase = False
            .Apply
        End With
    Next yRg
    Application.ScreenUpdating = True
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene výběr rozsahu dat, který chcete řadit na základě každého sloupce, viz screenshot:

doc seřadit více sloupců 2

4. A pak klikněte na tlačítko OK, každý sloupec byl seřazen závisle najednou, viz screenshot:

doc seřadit více sloupců 1


šipka modrá pravá bublina Řadit více řádků samostatně najednou pomocí kódu VBA

Pokud chcete řadit více řádků samostatně, je zde také kód VBA.

1. Na základě jednotlivých řádků vyberte data, která chcete řadit.

doc seřadit více sloupců 3

2. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Řadit více řádků samostatně najednou:

Sub SortIndividualR()
'Updateby Extendoffice
    Dim xRg As Range, yRg As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set xRg = Selection
    If xRg.Count = 1 Then
        MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    Application.ScreenUpdating = False
    For Each yRg In xRg.Rows
        yRg.Sort Key1:=yRg.Cells(1, 1), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        Orientation:=xlSortRows
    Next yRg
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
    Application.ScreenUpdating = True
End Sub

4. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, data v každém řádku byla seřazena najednou, viz screenshot:

doc seřadit více sloupců 4


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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!
officetab dno
Komentáře (11)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Když se pokusím seřadit sloupce, seřadí data mimo rozsah sekcí! Proč je to?
Tento komentář byl moderátorem webu minimalizován
Funguje to skvěle! Děkuji !
Tento komentář byl moderátorem webu minimalizován
¿Cómo puedo ordenar por color múltiples filas de form independiente y que las celdas que no tengan color estén a la derecha?
Tento komentář byl moderátorem webu minimalizován
Líbí se mi to, jsem zvědavý na funkčnost řazení podle barev pro každý sloupec zvlášť. Zkoušel jsem toto, ale nefungovalo to:


Dim xRg jako rozsah
Dim yRg jako rozsah
Dim ws jako pracovní list
Nastavit ws = ActiveSheet
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Výběr rozsahu:", _
Title:="Kutools pro excel", Typ:=8)
Application.ScreenUpdating = False
Pro každý yRg v xRg
S ws.Sort
.SortFields.Clear
.SortFields.Add Key:=yRg, _
SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange ws.Range(yRg, yRg.End(xlDown))
.Záhlaví = xlNo
.MatchCase = False
.Aplikovat
Konec s
Další yRg
Application.ScreenUpdating = True
End Sub
Tento komentář byl moderátorem webu minimalizován
Moc vám za to děkuji. Opravdu to pomohlo. Také by mě zajímalo, jak třídit podle barev. Mám 26 sloupců, z nichž každý má různé typy položek identifikovaných barvou písma. Rád bych seřadil všechny sloupce jednotlivě, ale v určitém pořadí barev. Jak to udělám?
Tento komentář byl moderátorem webu minimalizován
Právě jste mi tímto řešením ušetřili několik bolestí hlavy! Díky moc!
Tento komentář byl moderátorem webu minimalizován
skvělý příspěvek, moc děkuji!
Tento komentář byl moderátorem webu minimalizován
Спасибо тебе человек!!
Tento komentář byl moderátorem webu minimalizován
Moje data se pohybují od 0 do 100; Když se pokusím seřadit více řádků najednou, začne data se 100, pak seřadí zbytek číselně od nejmenšího k největšímu, přičemž 100 s umístí na nejmenší stranu rozsahu. Jak to mohu opravit?
Tento komentář byl moderátorem webu minimalizován
Aktualizace; Uvědomil jsem si, že se třídí pouze podle první číslice v čísle - Jak dosáhnu řazení podle celého čísla?
Tento komentář byl moderátorem webu minimalizován
Ahoj, Devyne,
Kód funguje dobře v mém pracovním listu. Mohl byste sem nahrát svůj soubor Excel nebo snímek obrazovky s daty? Abychom vám mohli pomoci zjistit, kde je problém?
Děkuji!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL