Hoe sorteert u IP-adressen snel van laag naar hoog in Excel?
Over het algemeen gebruiken we de functie Sorteren om tekst in Excel te ordenen. Maar bij het sorteren van IP-adressen kan de standaard sorteervolgorde onjuist zijn, zoals in de onderstaande schermafbeelding wordt getoond. Hieronder vindt u enkele methoden om IP-adressen snel en correct in Excel te sorteren.
Verkeerde sorteervolgorde met de functie Sorteren
Correct sorteren
Sorteer IP-adres op basis van formule
Gebruik een formule om het IP-adres in te vullen en sorteer vervolgens.
1. Selecteer een cel naast het IP-adres en voer deze formule in
=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")
Druk op Enter en sleep de vulgreep over de cellen om deze formule toe te passen.
2. Kopieer de formule-uitkomsten en plak ze als waarden in de volgende kolom. Zie de schermafbeelding:
 |
 |
3. Houd de geplakte waarden geselecteerd en klik op Gegevens > Oplopend.
4. In het dialoogvenster Waarschuwing bij sorteren houdt u Selectie uitbreiden aangevinkt.
5. Klik op Sorteren. De IP-adressen zijn nu gesorteerd van laag naar hoog.
U kunt de hulpkolommen eenvoudig verwijderen.
Sorteer IP-adres met VBA
Hier is ook een VBA-code die u kan helpen.1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en kopieer de code naar het lege script.
VBA: Vul 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. Klik vervolgens op Extra > Referentie en vink Microsoft VBScript Regular Expressions 5,5 aan in het verschijnende dialoogvenster.
 |
 |
4. Klik op OK en druk op F5. Vervolgens verschijnt een dialoogvenster waarin u wordt gevraagd een bereik te selecteren om mee te werken.
5. Klik op OK. De IP-adressen zijn nu automatisch aangevuld met nullen.
6. Selecteer de IP-adressen en klik op Gegevens > Oplopend om ze te sorteren.
Sorteer IP-adres met Tekst naar kolommen
Eigenlijk kan de functie Tekst naar kolommen u ook goed van pas komen in Excel.
1. Selecteer de gebruikte cellen en klik op Gegevens > Tekst naar kolommen. Zie schermafbeelding:
2. Voer in het dialoogvenster Wizard Tekst naar kolommen converteren het volgende uit:
Vink Gescheidenaan en klik op Volgende;
Vink Overigaan, typ .in het tekstvak en klik op Volgende;
Selecteer een cel naast het IP-adres om het resultaat weer te geven. Klik op Voltooien.
 |
 |
 |
3. Selecteer alle cellen met de IP-adressen en klik op Gegevens > Sorteren.
4. Klik in het dialoogvenster Sorteren op Voorwaarden toevoegen om gegevens te sorteren van kolom B tot E (de cellen splitsen). Zie schermafbeelding:
5. Klik op OK. De kolommen zijn nu gesorteerd.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins