Gå til hovedindhold

Hvordan sorterer jeg hurtigt IP-adresse fra lav til høj i Excel?

Generelt bruger vi sorteringsfunktionen til at sortere streng i Excel. Men hvis der er nogle IP-adresser, der er nødvendige for at sortere, kan sorteringsrækkefølgen være forkert ved at bruge sorteringsfunktionen direkte som vist nedenstående skærmbillede. Nu har jeg nogle måder at sortere IP-adresserne hurtigt og korrekt i Excel.

Forkert sortering efter sorteringsfunktion Korrekt sortering
doc slags ip 1 doc slags ip 2

Sorter IP-adresse efter formel

Sorter IP-adresse efter VBA

Sorter IP-adresse efter tekst til kolonner


Sorter IP-adresse efter formel

Brug en formel til at udfylde IP-adressen, og sorter derefter.

1. Vælg en celle ved siden af ​​IP-adressen, og skriv denne formel

=TEXT(LEFT(A1,FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND( ".",A1,1)+1,FIND(".",A1,FIND(".",A1,1)+1)-FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND(".",A1,FIND(".",A1,1)+1)+1,FIND(".",A1, FIND(".",A1,FIND(".",A1,1)+1)+1)-FIND(".",A1,FIND(".",A1,1)+1)-1), "000") & "." & TEXT(RIGHT(A1,LEN(A1)-FIND(".",A1,FIND(".",A1,FIND( ".",A1,1)+1)+1)),"000")

trykke Indtast nøgle, og træk udfyldningshåndtaget over celler for at anvende denne formel.
doc slags ip 3

2. Kopier formelresultaterne og indsæt dem som værdi i den næste kolonne. Se skærmbillede:

doc slags ip 4
doc slags ip 5

3. hold den valgte værdi indsat, og klik data > Sorter A til Z.
doc slags ip 6

4. i Sorter Waring dialog, hold Udvid markeringen kontrolleret.
doc slags ip 7

5. klik Sort. Nu er IP-adresserne blevet sorteret fra lav til høj.
doc slags ip 2

Du kan fjerne hjælpekolonnerne.


Sorter IP-adresse efter VBA

Her er en VBA-kode, der også kan hjælpe dig.

1. Trykke Alt + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, kopier og indsæt koden i det tomme script.

VBA: Udfyld IP-adresse

Sub FormatIP()
'UpdatbyExtendoffice20171215
    Dim xReg As New RegExp
    Dim xMatches As MatchCollection
    Dim xMatch As Match
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim xArr() As String
    On Error Resume Next
    Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    With xReg
        .Global = True
        .Pattern = "\d{1,3}\.+\d{1,3}\.+\d{1,3}\.+\d{1,3}"
        For Each xCell In xRg
            Set xMatches = .Execute(xCell.Value)
            If xMatches.Count = 0 Then GoTo xBreak
            For Each xMatch In xMatches
                xArr = Split(xMatch, ".")
                For I = 0 To UBound(xArr)
                    xArr(I) = Right("000" & xArr(I), 3)
                    If I <> UBound(xArr) Then
                        xArr(I) = xArr(I) & "."
                    End If
                Next
            Next
            xCell.Value = Join(xArr, "")
xBreak:
        Next
    End With
End Sub

doc slags ip 8

3. Klik derefter på Værktøjer > Henvisning, og tjek Microsoft VBScript Regular Expressions 5.5 i poppedialogen.

doc slags ip 9
doc slags ip 10

4. klik OK og tryk F5 tast, vises en dialogboks for at minde dig om at vælge et område, der skal fungere.
doc slags ip 11

5. klik OK. Så er IP-adresserne blevet fyldt med nul.

6. Vælg IP-adresser, og klik data > Sorter A til Z at sortere dem.


Sorter IP-adresse efter tekst til kolonner

Faktisk kan funktionen Tekst til kolonner også gøre dig en tjeneste i Excel.

1. Vælg de celler, du bruger, og klik på data > Tekst til kolonner. Se skærmbillede:
doc slags ip 12

2. i Konverter tekst til kolonne guiden dialog, gør som nedenfor:

Check (Skak) afgrænset, og klik Næste;

Check (Skak) Andet og type . ind i tekstboksen, og klik Næste;

Vælg en celle ved siden af ​​IP-adressen for at placere resultatet. Klik Finish.

doc slags ip 13
doc slags ip 14
doc slags ip 15

3. Vælg alle celler, der indeholder IP-adresserne og de opdelte celler, og klik data > Sort.
doc slags ip 16

4. i Sort dialog, ved at klikke Tilføj niveau at sortere data fra kolonne B til E (de opdelte celler). Se skærmbillede:
doc slags ip 17

5. klik OK. Nu er kolonnerne sorteret.
doc slags ip 18


Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Traducido al español:
=TEXTO(IZQUIERDA(A1,ENCONTRAR(".",A1,1)-1),"000") & "." & TEXTO(EXTRAE(A1,ENCONTRAR( ".",A1,1)+1,ENCONTRAR(".",A1,ENCONTRAR(".",A1,1)+1)-ENCONTRAR(".",A1,1)-1),"000") & "." & TEXTO(EXTRAE(A1,ENCONTRAR(".",A1,ENCONTRAR(".",A1,1)+1)+1,ENCONTRAR(".",A1, ENCONTRAR(".",A1,ENCONTRAR(".",A1,1)+1)+1)-ENCONTRAR(".",A1,ENCONTRAR(".",A1,1)+1)-1), "000") & "." & TEXTO(DERECHA(A1,LARGO(A1)-ENCONTRAR(".",A1,ENCONTRAR(".",A1,ENCONTRAR( ".",A1,1)+1)+1)),"000")
This comment was minimized by the moderator on the site
Thanks for your help on translating the formula.
This comment was minimized by the moderator on the site
This is great! Very much appreciated. It would be nice to add to the VB code to reverse (put back) the IP's in the original format (without the extra leading 0's) after having sorted them. :) I would be very interested in that where you can run this script, sort results, then revert back to original format.
This comment was minimized by the moderator on the site
thank you, very useful !
This comment was minimized by the moderator on the site
la formule traduite en Francais :
=TEXTE(GAUCHE(I6;TROUVE(".";I6;1)-1);"000") & "." & TEXTE(STXT(I6;TROUVE( ".";I6;1)+1;TROUVE(".";I6;TROUVE(".";I6;1)+1)-TROUVE(".";I6;1)-1);"000") & "." & TEXTE(STXT(I6;TROUVE(".";I6;TROUVE(".";I6;1)+1)+1;TROUVE(".";I6; TROUVE(".";I6;TROUVE(".";I6;1)+1)+1)-TROUVE(".";I6;TROUVE(".";I6;1)+1)-1); "000") & "." & TEXTE(DROITE(I6;NBCAR(I6)-TROUVE(".";I6;TROUVE(".";I6;TROUVE( ".";I6;1)+1)+1));"000")
This comment was minimized by the moderator on the site
Merci pour la traduction !
This comment was minimized by the moderator on the site
Why does the formula not work for the last octet? It adds zeros to the 3rd octet but not the last? So frustrating.
This comment was minimized by the moderator on the site
I have tested the formula before I post it, it can work for the last octer. Have you checked the formula you pasted is correct?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations