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í |
 |  |
Řazení IP adresy podle textu na sloupce
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.
2. Zkopírujte výsledky vzorce a vložte je jako hodnotu do dalšího sloupce. Viz screenshot:
 |
 |
3. ponechte vybranou vloženou hodnotu a klepněte na Data > Třídit od A do Z..
4. V Třídit Waring dialog, ponechat Rozbalte výběr kontrolovány.
5. klepněte na tlačítko Typ. Nyní byly adresy IP seřazeny od nejnižší po nejvyšší.
Sloupce pomocníka můžete odebrat.
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
3. Pak klikněte na tlačítko Tools > Odkaz, a zkontrolujte Pravidelné výrazy Microsoft VBScript 5.5 v rozbalovacím dialogovém okně.
 |
 |
4. cvaknutí OK a stiskněte F5 klávesa, objeví se dialogové okno, které vám připomene, abyste vybrali rozsah, který má fungovat.
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.
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:
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.
 |
 |
 |
3. Vyberte všechny buňky obsahující adresy IP a rozdělené buňky a klepněte na Data > Typ.
4. V Typ kliknutím na Přidat úroveň třídit data ze sloupce B do E (rozdělené buňky). Viz screenshot:
5. cvaknutí OK. Nyní byly sloupce tříděny.
