Ana içeriğe atla

Excel'de IP adresini düşükten yükseğe hızlı bir şekilde nasıl sıralayabilirim?

Genel olarak, Excel'de dizeyi sıralamak için Sıralama işlevini kullanırız. Ancak, sıralanması gereken bazı IP adresleri varsa, aşağıda gösterilen ekran görüntüsü gibi doğrudan Sıralama işlevini kullanarak sıralama düzeni yanlış olabilir. Artık IP adreslerini Excel'de hızlı ve doğru bir şekilde sıralamanın bazı yolları var.

Yanlış Sıralama işlevi Doğru Sıralama
doc sıralama ip 1 doc sıralama ip 2

IP adresini formüle göre sırala

IP adresini VBA'ya göre sırala

IP adresini Metne Göre Sütunlara Göre Sırala


IP adresini formüle göre sırala

IP adresini doldurmak için bir formül kullanın ve ardından sıralayın.

1. IP adresine bitişik bir hücre seçin ve bu formülü yazın

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

basın Keşfet tuşuna basın ve bu formülü uygulamak için dolgu tutamacını hücrelerin üzerine sürükleyin.
doc sıralama ip 3

2. Formül sonuçlarını kopyalayın ve sonraki sütuna değer olarak yapıştırın. Ekran görüntüsüne bakın:

doc sıralama ip 4
doc sıralama ip 5

3. yapıştırılan değeri seçili tutun ve tıklayın Veri > A'dan Z'ye sırala.
doc sıralama ip 6

4. içinde Waring'i Sırala diyalog, tut Seçimi genişletin kontrol.
doc sıralama ip 7

5. tıklayın Sırala. Artık IP adresleri düşükten yükseğe doğru sıralanmıştır.
doc sıralama ip 2

Yardımcı sütunları kaldırabilirsiniz.


IP adresini VBA'ya göre sırala

İşte size yardımcı olabilecek bir VBA kodu.

1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > modül, kodu kopyalayıp boş komut dosyasına yapıştırın.

VBA: IP adresini doldurun

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 sıralama ip 8

3. Sonra tıklayın Tools > Referansve kontrol et Microsoft VBScript Normal İfadeler 5.5 açılan iletişim kutusunda.

doc sıralama ip 9
doc sıralama ip 10

4. tık OK ve basın F5 tuşuna basıldığında, çalışmak üzere bir aralık seçmenizi hatırlatan bir iletişim kutusu açılır.
doc sıralama ip 11

5. tık OK. Ardından IP adresleri sıfır ile doldurulmuştur.

6. IP adreslerini seçin ve tıklayın Veri > A'dan Z'ye sırala onları sıralamak için.


IP adresini Metne Göre Sütunlara Göre Sırala

Aslında, Metinden Sütunlara özelliği Excel'de de size bir iyilik yapabilir.

1. Kullandığınız hücreleri seçin ve tıklayın Veri > Sütunlara Metin. Ekran görüntüsüne bakın:
doc sıralama ip 12

2. içinde Metni Sütunlara Dönüştürme Sihirbazı iletişim kutusu, aşağıdaki gibi yapın:

Kontrol sınırlandırılmışVe tıklama Sonraki;

Kontrol Diğer ve tip . metin kutusuna girin ve Sonraki;

Sonucu yerleştirmek için IP adresinin yanında bir hücre seçin. Tıklayın Bitiş.

doc sıralama ip 13
doc sıralama ip 14
doc sıralama ip 15

3. IP adreslerini ve bölünmüş hücreleri içeren tüm hücreleri seçin ve Veri > Sırala.
doc sıralama ip 16

4. içinde Sırala iletişim kutusu, tıklama Seviye ekle B sütunundan E'ye (bölünmüş hücreler) verileri sıralamak için. Ekran görüntüsüne bakın:
doc sıralama ip 17

5. tık OK. Şimdi sütunlar sıralandı.
doc sıralama ip 18


En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
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