Ugrás a tartalomra

Hogyan lehet gyorsan rendezni az IP-címet alacsonyról magasra az Excelben?

Általában a Rendezés függvényt használjuk a karaktersorozat rendezéséhez az Excelben. De ha van néhány IP-cím a rendezéshez, akkor a rendezési sorrend helytelen lehet, ha közvetlenül a Rendezés funkciót használja, az alábbi képernyőképen. Most van néhány módom az IP-címek gyors és helyes rendezésére az Excelben.

Rossz rendezés rendezés szerint funkció Helyes rendezés
doki rendezés ip 1 doki rendezés ip 2

Rendezze az IP-címet képlet szerint

Rendezze az IP-címet VBA szerint

Rendezze az IP-címet szövegből oszlopokba


Rendezze az IP-címet képlet szerint

Használjon képletet az IP-cím kitöltéséhez, majd rendezze.

1. Válasszon egy cellát az IP-cím mellett, és írja be ezt a képletet

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

nyomja meg a belép gombot, és húzza a kitöltő fogantyút a cellák fölé a képlet alkalmazásához.
doki rendezés ip 3

2. Másolja a képlet eredményeit, és illessze be értékként a következő oszlopba. Lásd a képernyőképet:

doki rendezés ip 4
doki rendezés ip 5

3. tartsa kiválasztva a beillesztett értéket, majd kattintson dátum > Rendezés A-tól Z-ig.
doki rendezés ip 6

4. Ban,-ben Rendezés Waring párbeszédpanel, tartsa Bontsa ki a választékot ellenőrizni.
doki rendezés ip 7

5. kattintson Fajta. Most az IP-címeket alacsonyról magasra rendezték.
doki rendezés ip 2

Eltávolíthatja a segítő oszlopokat.


Rendezze az IP-címet VBA szerint

Itt van egy VBA kód, amely szintén segíthet.

1. nyomja meg Alt + F11 gombok a Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, másolja és illessze be a kódot az üres parancsfájlba.

VBA: Töltse ki az IP-címet

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

doki rendezés ip 8

3. Ezután kattintson Eszközök > Referencia, és ellenőrizze Microsoft VBScript rendszeres kifejezések 5.5 a felbukkanó párbeszédpanelen.

doki rendezés ip 9
doki rendezés ip 10

4. kettyenés OK és nyomja meg az F5 gombot, megjelenik egy párbeszédpanel, amely emlékeztet arra, hogy válasszon egy működési tartományt.
doki rendezés ip 11

5. kettyenés OK. Ezután az IP-címek nullával lettek kitöltve.

6. Válassza ki az IP-címeket, majd kattintson dátum > Rendezés A-tól Z-ig válogatni őket.


Rendezze az IP-címet szövegből oszlopokba

Valójában a Szöveg oszlopokba funkció az Excel-ben is kedvező lehet.

1. Jelölje ki a használt cellákat, majd kattintson dátum > Szöveg oszlopokba. Lásd a képernyőképet:
doki rendezés ip 12

2. Ban,-ben Szöveg konvertálása oszlopok varázslóvá párbeszédpanelt tegye az alábbiak szerint:

Jelölje be a Határolójel, és kattintson a gombra Következő;

Jelölje be Más és típusa . a szövegmezőbe, és kattintson a gombra Következő;

Válasszon egy cellát az IP-cím mellett az eredmény elhelyezéséhez. Kattintson a gombra befejez.

doki rendezés ip 13
doki rendezés ip 14
doki rendezés ip 15

3. Jelölje ki az összes cellát, amely tartalmazza az IP-címeket és az osztott cellákat, majd kattintson dátum > Fajta.
doki rendezés ip 16

4. Ban,-ben Fajta gombra kattintva Szint hozzáadása hogy az adatokat a B oszlopból az E-be (az osztott cellák) rendezze. Lásd a képernyőképet:
doki rendezés ip 17

5. kettyenés OK. Most rendezték az oszlopokat.
doki rendezés ip 18


A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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