मुख्य सामग्री पर जाएं

Excel में IP पते को निम्न से उच्च में शीघ्रता से कैसे क्रमबद्ध करें?

लेखक: रवि अंतिम संशोधित: 2020-07-20

सामान्य तौर पर, हम एक्सेल में स्ट्रिंग को सॉर्ट करने के लिए सॉर्ट फ़ंक्शन का उपयोग करते हैं। लेकिन अगर सॉर्ट करने के लिए कुछ आईपी पते की आवश्यकता है, तो नीचे दिखाए गए स्क्रीनशॉट के अनुसार सीधे सॉर्ट फ़ंक्शन का उपयोग करके सॉर्टिंग क्रम गलत हो सकता है। अब मेरे पास एक्सेल में आईपी पते को जल्दी और सही ढंग से क्रमबद्ध करने के कुछ तरीके हैं।

सॉर्ट फ़ंक्शन के अनुसार ग़लत सॉर्ट करें सही वर्गीकरण
दस्तावेज़ सॉर्ट आईपी 1 दस्तावेज़ सॉर्ट आईपी 2

आईपी ​​पते को सूत्र के अनुसार क्रमबद्ध करें

वीबीए द्वारा आईपी पते को क्रमबद्ध करें

IP पते को टेक्स्ट से कॉलम के अनुसार क्रमित करें


आईपी ​​पते को सूत्र के अनुसार क्रमबद्ध करें

IP पता भरने के लिए एक सूत्र का उपयोग करें और फिर क्रमबद्ध करें।

1. आईपी पते से सटे एक सेल का चयन करें और इस सूत्र को टाइप करें

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

दबाना दर्ज कुंजी, और इस सूत्र को लागू करने के लिए कोशिकाओं पर भरण हैंडल खींचें।
दस्तावेज़ सॉर्ट आईपी 3

2. सूत्र परिणामों की प्रतिलिपि बनाएँ और उन्हें अगले कॉलम में मान के रूप में चिपकाएँ। स्क्रीनशॉट देखें:

दस्तावेज़ सॉर्ट आईपी 4
दस्तावेज़ सॉर्ट आईपी 5

3. चिपकाए गए मान को चयनित रखें और क्लिक करें जानकारी > A से Z तक क्रमबद्ध करें.
दस्तावेज़ सॉर्ट आईपी 6

4। में वारिंग को क्रमबद्ध करें संवाद, रखें चयन का विस्तार करें जाँच की।
दस्तावेज़ सॉर्ट आईपी 7

5। क्लिक करें तरह. अब आईपी एड्रेस को निम्न से उच्च की ओर क्रमबद्ध कर दिया गया है।
दस्तावेज़ सॉर्ट आईपी 2

आप सहायक कॉलम हटा सकते हैं.


वीबीए द्वारा आईपी पते को क्रमबद्ध करें

यहां एक वीबीए कोड है जो आपकी मदद कर सकता है।

1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, कोड को कॉपी करें और रिक्त स्क्रिप्ट में पेस्ट करें।

वीबीए: आईपी पता भरें

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

दस्तावेज़ सॉर्ट आईपी 8

3। तब दबायें टूल्स > संदर्भ, और जाँच करें माइक्रोसॉफ्ट वीबीस्क्रिप्ट रेगुलर एक्सप्रेशंस 5.5 पॉपिंग डायलॉग में.

दस्तावेज़ सॉर्ट आईपी 9
दस्तावेज़ सॉर्ट आईपी 10

4। क्लिक करें OK और प्रेस F5 कुंजी, एक संवाद आपको काम करने के लिए एक सीमा का चयन करने की याद दिलाने के लिए पॉप आउट होता है।
दस्तावेज़ सॉर्ट आईपी 11

5। क्लिक करें OK. फिर आईपी पते शून्य से भर दिए गए हैं।

6. आईपी एड्रेस चुनें और क्लिक करें जानकारी > A से Z तक क्रमबद्ध करें उन्हें क्रमबद्ध करने के लिए.


IP पते को टेक्स्ट से कॉलम के अनुसार क्रमित करें

दरअसल, टेक्स्ट टू कॉलम फीचर आपको एक्सेल में भी फायदा पहुंचा सकता है।

1. आपके द्वारा उपयोग की जाने वाली कोशिकाओं का चयन करें और क्लिक करें जानकारी > कॉलम से टेक्स्ट. स्क्रीनशॉट देखें:
दस्तावेज़ सॉर्ट आईपी 12

2। में टेक्स्ट को कॉलम विजार्ड में बदलें संवाद, नीचे दिए अनुसार करें:

चेक सीमांकित, और क्लिक करें अगला;

चेक अन्य और प्रकार . टेक्स्टबॉक्स में, और क्लिक करें अगला;

परिणाम डालने के लिए आईपी पते के आगे एक सेल का चयन करें। क्लिक अंत.

दस्तावेज़ सॉर्ट आईपी 13
दस्तावेज़ सॉर्ट आईपी 14
दस्तावेज़ सॉर्ट आईपी 15

3. आईपी पते और विभाजित कोशिकाओं वाले सभी कक्षों का चयन करें और क्लिक करें जानकारी > तरह.
दस्तावेज़ सॉर्ट आईपी 16

4। में तरह संवाद, क्लिक करना स्तर जोड़ें कॉलम बी से ई (विभाजित कोशिकाओं) तक डेटा को सॉर्ट करने के लिए। स्क्रीनशॉट देखें:
दस्तावेज़ सॉर्ट आईपी 17

5। क्लिक करें OK. अब कॉलम क्रमबद्ध कर दिए गए हैं.
दस्तावेज़ सॉर्ट आईपी 18


सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 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