Skip to main content

Conas seoladh IP a shórtáil go tapa ó íseal go hard in Excel?

Go ginearálta, úsáidimid an fheidhm Sórtáil chun sreangán a shórtáil in Excel. Ach má tá roinnt seoltaí IP de dhíth le sórtáil, d’fhéadfadh go mbeadh an t-ordú sórtála mícheart tríd an bhfeidhm Sórtáil a úsáid go díreach mar atá thíos an pictiúr a thaispeántar. Anois tá roinnt bealaí agam chun na seoltaí IP a shórtáil go tapa agus i gceart in Excel.

Sórtáil Mícheart de réir na Sórtála feidhm Sórtáil Ceart
sórtáil ip 1 sórtáil ip 2

Seoladh IP a shórtáil de réir foirmle

Seoladh IP a shórtáil de réir VBA

Seoladh IP a shórtáil de réir Téacs chuig Colúin


Seoladh IP a shórtáil de réir foirmle

Úsáid foirmle chun an seoladh IP a líonadh agus ansin sórtáil.

1. Roghnaigh cill in aice leis an seoladh IP agus clóscríobh an fhoirmle seo

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

brúigh Iontráil eochair, agus tarraing láimhseáil líonta thar chealla chun an fhoirmle seo a chur i bhfeidhm.
sórtáil ip 3

2. Cóipeáil torthaí na foirmle agus greamaigh iad mar luach sa chéad cholún eile. Féach an pictiúr:

sórtáil ip 4
sórtáil ip 5

3. coinnigh an luach greamaithe roghnaithe, agus cliceáil Dáta > Sórtáil A go Z..
sórtáil ip 6

4. Sa Sórtáil Cogaíochta dialóg, coinnigh Leathnaigh an roghnú seiceáilte.
sórtáil ip 7

5. cliceáil Sórtáil. Anois tá na seoltaí IP curtha in eagar ó íseal go hard.
sórtáil ip 2

Is féidir leat na colúin chúntóra a bhaint.


Seoladh IP a shórtáil de réir VBA

Seo cód VBA a chabhróidh leat freisin.

1. Brúigh Alt + F11 eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód leis an script bán.

VBA: Líon seoladh IP

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

sórtáil ip 8

3. Ansin cliceáil uirlisí > Tagairt, agus seiceáil Léirithe Rialta Microsoft VBScript 5.5 sa dialóg popping.

sórtáil ip 9
sórtáil ip 10

4. cliceáil OK agus brúigh F5 eochair, tagann dialóg amach le cur i gcuimhne duit raon a roghnú le bheith ag obair.
sórtáil ip 11

5. cliceáil OK. Ansin líonadh na seoltaí IP le nialas.

6. Roghnaigh na seoltaí IP agus cliceáil Dáta > Sórtáil A go Z. chun iad a shórtáil.


Seoladh IP a shórtáil de réir Téacs chuig Colúin

I ndáiríre, is féidir leis an ngné Téacs go Colúin fabhar a thabhairt duit in Excel freisin.

1. Roghnaigh na cealla a úsáideann tú, agus cliceáil Dáta > Téacs chuig na Colúin. Féach an pictiúr:
sórtáil ip 12

2. Sa Tiontaigh Téacs go Draoi na gColún dialóg, déan mar atá thíos:

seiceáil Teoranta, agus cliceáil Ar Aghaidh;

seiceáil Eile agus cineál . isteach sa bhosca téacs, agus cliceáil Ar Aghaidh;

Roghnaigh cill in aice leis an seoladh IP chun an toradh a chur. Cliceáil Críochnaigh.

sórtáil ip 13
sórtáil ip 14
sórtáil ip 15

3. Roghnaigh na cealla go léir ina bhfuil na seoltaí IP agus na cealla scoilte, agus cliceáil Dáta > Sórtáil.
sórtáil ip 16

4. Sa Sórtáil dialóg, cliceáil Cuir leibhéal leis chun sonraí a shórtáil ó cholún B go E (na cealla scoilte). Féach an pictiúr:
sórtáil ip 17

5. cliceáil OK. Anois tá na colúin curtha in eagar.
sórtáil ip 18


Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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