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

Hogyan rendezhet több sort vagy oszlopot egyszerre egymástól függetlenül az Excelben?

Az Excelben alkalmazhatja a Rendezés funkciót, hogy csak egy sort vagy oszlopot rendezzen egy oszloptartományban, de ha egyszerre több sort vagy oszlopot kell egymástól függetlenül rendezni, a következő képernyőkép megjelenítéséhez. Van-e gyors módja ennek a feladatnak az Excelben történő megoldására?

doc több oszlop rendezése 1

Rendezzen több oszlopot egymástól függetlenül, VBA kóddal

Több sort rendezhet egymástól függetlenül, VBA kóddal


nyíl kék jobb buborék Rendezzen több oszlopot egymástól függetlenül, VBA kóddal

Ha több oszlopot akar növekvő sorrendben rendezni, a következő VBA-kód segíthet, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Több oszlop rendezése egymástól függetlenül:

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy válassza ki az egyes oszlopok alapján rendezni kívánt adattartományt, lásd a képernyőképet:

doc több oszlop rendezése 2

4. Kattintson a gombra OK, az egyes oszlopokat egyszerre egymástól függően rendezték, lásd a képernyőképet:

doc több oszlop rendezése 1


nyíl kék jobb buborék Több sort rendezhet egymástól függetlenül, VBA kóddal

Ha több sort akar önállóan rendezni, itt van egy VBA kód is.

1. Válassza ki az egyes sorok alapján rendezni kívánt adatokat.

doc több oszlop rendezése 3

2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Több sort rendezhet egyszerre egymástól függetlenül:

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, az egyes sorok adatait egyszerre rendezték, lásd a képernyőképet:

doc több oszlop rendezése 4


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (11)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Amikor megpróbálom rendezni az oszlopokat, az adatokat a szelektált tartományon kívülre rendezi! Miért ez?
A weboldal moderátora ezt a megjegyzést minimalizálta
Remekül működik! köszönöm !
A weboldal moderátora ezt a megjegyzést minimalizálta
¿Cómo puedo ordenar por color múltiples filas de forma independiente y que las celdas que no tengan color estén a la derecha?
A weboldal moderátora ezt a megjegyzést minimalizálta
Imádom ezt, kíváncsi vagyok az egyes oszlopok szín szerinti rendezési funkcióira. Ezt próbáltam, de nem ment:


Dim xrg mint tartomány
Dim yRg As Range
Dim ws munkalapként
Set ws = ActiveSheet
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Tartomány kiválasztása:", _
Title:="Kutools for Excel", Type:=8)
Application.ScreenUpdating = Hamis
Minden yRg In xRg
A ws.Sort segítségével
.SortFields.Clear
.SortFields.Add Key:=yRg, _
SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange ws.Range(yRg, yRg.End(xlDown))
.Header = xlNo
.MatchCase = Hamis
.Alkalmaz
Vége
Következő yRg
Application.ScreenUpdating = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon köszönöm ezt. Valóban segített. Azt is szeretném tudni, hogyan kell szín szerint rendezni. 26 oszlopom van, mindegyikben különböző típusú elemek vannak, amelyeket a betűtípus színe azonosít. Az összes oszlopot egyenként, de meghatározott színsorrendben szeretném abc-be rendezni. Hogyan csináljam ezt?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ezzel a megoldással sok fejfájástól kíméltél meg! Nagyon köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
remek poszt, köszönöm szépen!
A weboldal moderátora ezt a megjegyzést minimalizálta
Спасибо тебе человек!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Adataim 0-100 között mozognak; Amikor megpróbálok egyszerre több sort rendezni, az adatokat a 100-as értékkel kezdi, majd a többit számszerűen a legkisebbre rendezi a legnagyobbra, a 100-asokat pedig a tartomány legkisebb oldalára helyezi. Hogyan tudom ezt megjavítani?
A weboldal moderátora ezt a megjegyzést minimalizálta
Frissítés; Rájöttem, hogy csak a szám első számjegye szerint rendezi a rendszert – Hogyan érhetem el, hogy az egész szám szerint rendezze?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Devyn,
A kód jól működik a munkalapomon. Fel tudnád tölteni ide az Excel-fájlt vagy az adatok képernyőképet? Így segíthetünk ellenőrizni, hol a probléma?
Köszönöm!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi