Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrace  \/ 
x

or

Jak rychle třídit IP adresu z nízké na vysokou v aplikaci Excel?

Obecně používáme funkci řazení k řazení řetězce v aplikaci Excel. Pokud ale k třídění potřebujete nějaké IP adresy, může být pořadí řazení špatné, když použijete funkci řazení přímo, jak je ukázáno níže. Nyní mám několik způsobů, jak rychle a správně řadit adresy IP v aplikaci Excel.

Chybné řazení podle funkce řazení Správné řazení
doc třídit ip 1 doc třídit ip 2

Řadit IP adresu podle vzorce

Řadit IP adresu podle VBA

Řazení IP adresy podle textu na sloupce


Řadit IP adresu podle vzorce

Pomocí vzorce vyplňte adresu IP a poté seřaďte.

1. Vyberte buňku sousedící s IP adresou a zadejte tento vzorec

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

lis vstoupit klávesou a přetažením úchytky výplně přes buňky použijte tento vzorec.
doc třídit ip 3

2. Zkopírujte výsledky vzorce a vložte je jako hodnotu do dalšího sloupce. Viz screenshot:

doc třídit ip 4
doc třídit ip 5

3. ponechte vybranou vloženou hodnotu a klepněte na Data > Třídit od A do Z..
doc třídit ip 6

4. V Třídit Waring dialog, ponechat Rozbalte výběr kontrolovány.
doc třídit ip 7

5. klepněte na tlačítko Typ. Nyní byly adresy IP seřazeny od nejnižší po nejvyšší.
doc třídit ip 2

Sloupce pomocníka můžete odebrat.


Řadit IP adresu podle VBA

Zde je kód VBA, který vám také může pomoci.

1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul, zkopírujte a vložte kód do prázdného skriptu.

VBA: Vyplňte IP adresu

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 třídit ip 8

3. Pak klikněte na tlačítko Tools > Odkaz, a zkontrolujte Pravidelné výrazy Microsoft VBScript 5.5 v rozbalovacím dialogovém okně.

doc třídit ip 9
doc třídit ip 10

4. cvaknutí OK a stiskněte F5 klávesa, objeví se dialogové okno, které vám připomene, abyste vybrali rozsah, který má fungovat.
doc třídit ip 11

5. cvaknutí OK. Poté byly adresy IP vyplněny nulou.

6. Vyberte IP adresy a klikněte na Data > Třídit od A do Z. třídit je.


Řazení IP adresy podle textu na sloupce

Vlastně vám funkce Text na sloupce udělá laskavost i v Excelu.

1. Vyberte buňky, které používáte, a klepněte na Data > Text do sloupců. Viz snímek obrazovky:
doc třídit ip 12

2. V Převést Průvodce textu na sloupce dialogové okno, postupujte takto:

Check Oddělené, a klepněte na tlačítko další;

Check Ostatní a typ . do textového pole a klikněte na další;

Chcete-li umístit výsledek, vyberte buňku vedle adresy IP. Klepněte na úprava.

doc třídit ip 13
doc třídit ip 14
doc třídit ip 15

3. Vyberte všechny buňky obsahující adresy IP a rozdělené buňky a klepněte na Data > Typ.
doc třídit ip 16

4. V Typ kliknutím na Přidat úroveň třídit data ze sloupce B do E (rozdělené buňky). Viz screenshot:
doc třídit ip 17

5. cvaknutí OK. Nyní byly sloupce tříděny.
doc třídit ip 18



Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
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 · 2 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?