Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս Excel- ում արագ տեսակավորել IP հասցեն ցածրից բարձր:

Ընդհանուր առմամբ, Excel- ում տողը դասավորելու համար մենք օգտագործում ենք Տեսակավորելու գործառույթը: Բայց եթե տեսակավորելու համար անհրաժեշտ են որոշ IP հասցեներ, ապա տեսակավորման կարգը կարող է սխալ լինել ՝ օգտագործելով Տեսակավորելու գործառույթը ուղղակիորեն, ինչպես ցույց է տրված նկարում: Այժմ ես Excel- ում IP հասցեները արագ և ճիշտ տեսակավորելու մի քանի եղանակներ ունեմ:

Սխալ Տեսակավորել ըստ Տեսակավորելու գործառույթը Rectիշտ դասավորել
doc տեսակ ip 1 doc տեսակ ip 2

Տեսակավորել IP հասցեն ըստ բանաձևի

Տեսակավորել IP հասցեն ըստ VBA- ի

Տեսակավորել IP հասցեն ըստ տեքստի սյունակների


Տեսակավորել IP հասցեն ըստ բանաձևի

Օգտագործեք բանաձև IP հասցեն լրացնելու համար, ապա տեսակավորեք:

1. Ընտրեք IP հասցեին հարակից բջիջ և մուտքագրեք այս բանաձևը

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

սեղմեք Մտնել ստեղնը և լրացնել բռնիչը բջիջների վրա քաշել ՝ այս բանաձևը կիրառելու համար:
doc տեսակ ip 3

2. Պատճենեք բանաձևի արդյունքները և տեղադրեք դրանք որպես արժեք հաջորդ սյունակում: Տեսեք,

doc տեսակ ip 4
doc տեսակ ip 5

3. կպցրած արժեքը ընտրված պահեք և կտտացրեք Ամսաթիվ > Տեսակավորել Ա-ն Z-ին.
doc տեսակ ip 6

4. Մեջ Տեսակավորել զգուշացումը երկխոսություն, պահիր Ընդլայնել ընտրությունը ստուգվում.
doc տեսակ ip 7

5. կտտացրեք Տեսակ, Այժմ IP հասցեները տեսակավորված են ցածրից բարձր:
doc տեսակ ip 2

Կարող եք հեռացնել օգնող սյունները:


Տեսակավորել IP հասցեն ըստ VBA- ի

Ահա VBA կոդ, որը կարող է նաև օգնել ձեզ:

1. Մամուլ Alt + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը դատարկ սցենարում:

VBA. Լրացրեք 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

doc տեսակ ip 8

3. Այնուհետեւ կտտացրեք Գործիքներ > Մանրամասնեւ ստուգեք Microsoft VBScript կանոնավոր արտահայտություններ 5.5 ելնող երկխոսության մեջ:

doc տեսակ ip 9
doc տեսակ ip 10

4: սեղմեք OK եւ սեղմեք F5 ստեղնով, դուրս է գալիս երկխոսություն, որը հիշեցնում է ձեզ աշխատելու տիրույթ ընտրելը:
doc տեսակ ip 11

5: սեղմեք OK. Այնուհետև IP հասցեները լրացվել են զրոյով։

6. Ընտրեք IP հասցեները և կտտացրեք Ամսաթիվ > Տեսակավորել Ա-ն Z-ին դրանք տեսակավորելու համար:


Տեսակավորել IP հասցեն ըստ տեքստի սյունակների

Փաստորեն, «Text to Columns» ֆունկցիան կարող է ձեզ լավություն անել նաև Excel-ում:

1. Ընտրեք ձեր օգտագործած բջիջները և կտտացրեք Ամսաթիվ > Տեքստը սյունակներում, Տեսեք,
doc տեսակ ip 12

2. Մեջ Փոխարկել տեքստը սյունակների մոգ երկխոսություն, արեք ինչպես ստորև ՝

Ստուգում Դիմակավորվածեւ սեղմեք հաջորդ;

Ստուգում այլ եւ տեսակը . մեջ textbox, և սեղմեք հաջորդ;

Արդյունքը տեղադրելու համար ընտրեք IP հասցեի կողքին գտնվող բջիջը: Սեղմել Ավարտել.

doc տեսակ ip 13
doc տեսակ ip 14
doc տեսակ ip 15

3. Ընտրեք բոլոր բջիջները, որոնք պարունակում են IP հասցեները և բաժանված բջիջները և սեղմեք Ամսաթիվ > Տեսակ.
doc տեսակ ip 16

4. Մեջ Տեսակ երկխոսություն, սեղմելով Ավելացնել մակարդակ տեսակավորելու տվյալները B սյունակից E (բաժանված բջիջները): Տեսեք սքրինշոթը՝
doc տեսակ ip 17

5: սեղմեք OK. Այժմ սյունակները դասավորված են:
doc տեսակ ip 18


Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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