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

Hur sorterar jag flera rader eller kolumner oberoende samtidigt i Excel?

I Excel kan du använda funktionen Sortera för att bara sortera en rad eller kolumn i ett antal kolumner, men om du behöver sortera flera rader eller kolumner separat för att få följande skärmdump att visas. Finns det några snabba sätt att lösa denna uppgift i Excel?

doc sortera flera kolumner 1

Sortera flera kolumner oberoende samtidigt med VBA-kod

Sortera flera rader oberoende samtidigt med VBA-kod


pil blå höger bubbla Sortera flera kolumner oberoende samtidigt med VBA-kod

För att sortera flera kolumner oberoende i stigande ordning kan följande VBA-kod hjälpa dig, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Sortera flera kolumner oberoende samtidigt:

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. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta dyker upp för att påminna dig om att välja det dataområde som du vill sortera baserat på varje kolumn, se skärmdump:

doc sortera flera kolumner 2

4. Och klicka sedan på OK, har varje kolumn sorterats beroende på en gång, se skärmdump:

doc sortera flera kolumner 1


pil blå höger bubbla Sortera flera rader oberoende samtidigt med VBA-kod

Om du vill sortera flera rader oberoende är här också en VBA-kod för dig.

1. Välj de data som du vill sortera baserat på varje rad.

doc sortera flera kolumner 3

2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

3. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Sortera flera rader oberoende samtidigt:

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. Tryck sedan på F5 nyckel för att köra den här koden, data i varje rad har sorterats på en gång, se skärmdump:

doc sortera flera kolumner 4


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (11)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
När jag försöker sortera kolumnerna sorteras data utanför sektionsintervallet! Varför är detta?
Denna kommentar minimerades av moderatoren på webbplatsen
Det fungerar jättebra! tack !
Denna kommentar minimerades av moderatoren på webbplatsen
¿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?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag älskar det här, jag är nyfiken på funktionaliteten i att sortera efter färg för varje kolumn individuellt. Jag provade detta men det fungerade inte:


Dim xRg As Range
Dim yRg As Range
Dim ws As Arbetsblad
Ställ in ws = ActiveSheet
On Error Resume Next
Ställ in xRg = Application.InputBox(Prompt:="Range Selection:", _
Title:="Kutools for excel", Typ:=8)
Application.ScreenUpdating = False
För varje yRg In xRg
Med ws.Sort
.SortFields.Clear
.SortFields.Add Key:=yRg, _
SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange ws.Range(yRg, yRg.End(xlDown))
.Header = xlNo
.MatchCase = False
.Tillämpa
Sluta med
Nästa år
Application.ScreenUpdating = True
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket för detta. Det hjälpte verkligen. Jag skulle också vilja veta hur man sorterar efter färg. Jag har 26 kolumner, var och en har olika typer av föremål som identifieras av teckensnittsfärgen. Jag skulle vilja alfabetisera alla kolumner individuellt men i en specifik färgordning. Hur gör jag detta?
Denna kommentar minimerades av moderatoren på webbplatsen
Du har precis räddat mig flera huvudvärk med den här lösningen! Tusen tack!
Denna kommentar minimerades av moderatoren på webbplatsen
jättebra inlägg, tack så mycket!
Denna kommentar minimerades av moderatoren på webbplatsen
Спасибо тебе человек!!
Denna kommentar minimerades av moderatoren på webbplatsen
Mina data sträcker sig från 0-100; När jag försöker sortera flera rader på en gång, startar den data med 100s, sedan sorterar resten numeriskt minst till störst, och placerar 100s på den minsta sidan av intervallet. Hur kan jag fixa detta?
Denna kommentar minimerades av moderatoren på webbplatsen
Uppdatering; Jag har insett att det bara sorterar efter den första siffran i numret - Hur får jag det att sortera efter hela talet?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Devyn,
Koden fungerar bra i mitt kalkylblad. Kan du ladda upp din Excel-fil eller dataskärmdump här? Så att vi kan hjälpa till att kontrollera var problemet ligger?
Tack!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL