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 |
 |  |
Sorteer het IP-adres op formule
Sorteer het IP-adres op Tekst naar kolommen
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.
2. Kopieer de formuleresultaten en plak ze als waarde in de volgende kolom. Zie screenshot:
 |
 |
3. houd de geplakte waarde geselecteerd en klik Data > Sorteer A tot Z.
4. In de Sorteer Waring dialoog, bewaar Breid de selectie uit gecontroleerd.
5. klikken Soort. Nu zijn de IP-adressen gesorteerd van laag naar hoog.
U kunt de hulpkolommen verwijderen.
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
3. Dan klikken Toolbox > Referentienummer, en check Microsoft VBScript reguliere expressies 5.5 in het popping-dialoogvenster.
 |
 |
4. klikken OK en druk op F5 toets, verschijnt er een dialoogvenster om u eraan te herinneren een bereik te selecteren om te werken.
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.
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:
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!.
 |
 |
 |
3. Selecteer alle cellen met de IP-adressen en de gesplitste cellen en klik op Data > Soort.
4. In de Soort dialoogvenster, te klikken Voeg niveau toe om gegevens te sorteren van kolom B naar E (de gesplitste cellen). Zie screenshot:
5. klikken OK. Nu zijn de kolommen gesorteerd.
