Μετάβαση στο κύριο περιεχόμενο

Πώς να ταξινομήσετε γρήγορα τη διεύθυνση IP από χαμηλή σε υψηλή στο Excel;

Γενικά, χρησιμοποιούμε τη συνάρτηση Ταξινόμηση για να ταξινομήσουμε τη συμβολοσειρά στο Excel. Αλλά εάν υπάρχουν ορισμένες διευθύνσεις IP που απαιτούνται για ταξινόμηση, η σειρά ταξινόμησης μπορεί να είναι λανθασμένη χρησιμοποιώντας τη λειτουργία Ταξινόμηση απευθείας όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Τώρα έχω κάποιους τρόπους να ταξινομήσω τις διευθύνσεις IP γρήγορα και σωστά στο Excel.

Λειτουργία Λάθος Ταξινόμηση κατά Ταξινόμηση Σωστή ταξινόμηση
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. κρατήστε επιλεγμένη την επικολλημένη τιμή και κάντε κλικ στο ημερομηνία > Ταξινόμηση Α έως Ω.
doc είδος ip 6

4. Στο Ταξινόμηση Waring διαλόγου, κρατήστε Αναπτύξτε την επιλογή τετραγωνισμένος.
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 και κάντε κλικ στο ημερομηνία > Ταξινόμηση Α έως Ω για να τα ταξινομήσετε.


Ταξινόμηση διεύθυνσης IP ανά κείμενο σε στήλες

Στην πραγματικότητα, η λειτουργία Κείμενο σε στήλες μπορεί να σας κάνει τη χάρη και στο Excel.

1. Επιλέξτε τα κελιά που χρησιμοποιείτε και κάντε κλικ στο ημερομηνία > Κείμενο σε στήλες. Δείτε το στιγμιότυπο οθόνης:
doc είδος ip 12

2. Στο Μετατροπή του οδηγού "Κείμενο σε στήλες" διαλόγου, κάντε τα παρακάτω:

Έλεγχος Οριοθετημένη, και κάντε κλικ στο κουμπί Επόμενο;

Έλεγχος ΑΛΛΑ και τον τύπο . στο πλαίσιο κειμένου και κάντε κλικ Επόμενο;

Επιλέξτε ένα κελί δίπλα στη διεύθυνση 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 Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, 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