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 |
Sorteer het IP-adres op formule
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.
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 Sorteer. Nu zijn de IP-adressen gesorteerd van laag naar hoog.
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
3. Dan klikken Tools > Referentie, 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. Vervolgens 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 een plezier doen in Excel.
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 Overige en het type . in het tekstvak en klik Volgende;
Selecteer een cel naast het IP-adres om het resultaat te plaatsen. Klik Finish.
3. Selecteer alle cellen die de IP-adressen en de gesplitste cellen bevatten, en klik op Data > Sorteer.
4. In de Sorteer dialoogvenster, klikken Voeg niveau toe om gegevens van kolom B tot E (de gesplitste cellen) te sorteren. Zie schermafbeelding:
5. klikken OK. Nu zijn de kolommen gesorteerd.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!