Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe snel een IP-adres van laag naar hoog sorteren in Excel?

Over het algemeen gebruiken we de functie Sorteren om de tekenreeks in Excel te sorteren. Maar als er enkele IP-adressen nodig zijn om te sorteren, kan de sorteervolgorde verkeerd zijn door de sorteerfunctie direct te gebruiken, zoals hieronder wordt getoond. Nu heb ik een aantal manieren om de IP-adressen snel en correct in Excel te sorteren.

Verkeerd sorteren op sorteerfunctie Correct sorteren
doc sorteer ip 1 doc sorteer ip 2

Sorteer het IP-adres op formule

Sorteer het IP-adres op VBA

Sorteer het IP-adres op Tekst naar kolommen


Sorteer het IP-adres op formule

Gebruik een formule om het IP-adres in te vullen en sorteer.

1. Selecteer een cel naast het IP-adres en typ deze formule

=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")

pers Enter -toets en sleep de vulgreep over de cellen om deze formule toe te passen.
doc sorteer ip 3

2. Kopieer de formuleresultaten en plak ze als waarde in de volgende kolom. Zie screenshot:

doc sorteer ip 4
doc sorteer ip 5

3. houd de geplakte waarde geselecteerd en klik Data > Sorteer A tot Z.
doc sorteer ip 6

4. In de Sorteer Waring dialoog, bewaar Breid de selectie uit gecontroleerd.
doc sorteer ip 7

5. klikken Soort. Nu zijn de IP-adressen gesorteerd van laag naar hoog.
doc sorteer ip 2

U kunt de hulpkolommen verwijderen.


Sorteer het IP-adres op VBA

Hier is een VBA-code die u ook kan helpen.

1. druk op Alt + F11 toetsen om het Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Module, kopieer en plak de code in het lege script.

VBA: vul het IP-adres in

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 sorteer ip 8

3. Dan klikken Toolbox > Referentienummer, en check Microsoft VBScript reguliere expressies 5.5 in het popping-dialoogvenster.

doc sorteer ip 9
doc sorteer ip 10

4. klikken OK en druk op F5 toets, verschijnt er een dialoogvenster om u eraan te herinneren een bereik te selecteren om te werken.
doc sorteer ip 11

5. klikken OK. Dan zijn de IP-adressen gevuld met nul.

6. Selecteer de IP-adressen en klik op Data > Sorteer A tot Z om ze te sorteren.


Sorteer het IP-adres op Tekst naar kolommen

Eigenlijk kan de functie Tekst naar kolommen u ook in Excel een plezier doen.

1. Selecteer de cellen die u gebruikt en klik op Data > Tekst naar kolommen. Zie screenshot:
doc sorteer ip 12

2. In de Wizard Tekst naar kolommen converteren dialoogvenster, doe zoals hieronder:

Check afgebakenden klik volgende;

Check Overig en het type . in het tekstvak en klik volgende;

Selecteer een cel naast het IP-adres om het resultaat te plaatsen. Klik Klaar!.

doc sorteer ip 13
doc sorteer ip 14
doc sorteer ip 15

3. Selecteer alle cellen met de IP-adressen en de gesplitste cellen en klik op Data > Soort.
doc sorteer ip 16

4. In de Soort dialoogvenster, te klikken Voeg niveau toe om gegevens te sorteren van kolom B naar E (de gesplitste cellen). Zie screenshot:
doc sorteer ip 17

5. klikken OK. Nu zijn de kolommen gesorteerd.
doc sorteer ip 18



De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jim H · 1 months ago
    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.
  • To post as a guest, your comment is unpublished.
    Stephen · 1 years ago
    thank you, very useful !
  • To post as a guest, your comment is unpublished.
    bobulus · 2 years ago
    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")
    • To post as a guest, your comment is unpublished.
      Alex · 1 years ago
      Merci pour la traduction !
  • To post as a guest, your comment is unpublished.
    Chris · 3 years ago
    Why does the formula not work for the last octet? It adds zeros to the 3rd octet but not the last? So frustrating.
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      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?