كيفية فرز عناوين IP بسرعة من الأدنى إلى الأعلى في Excel؟

بشكل عام، نستخدم وظيفة الفرز لترتيب النصوص في Excel. ولكن إذا كانت هناك بعض عناوين IP تحتاج إلى الفرز، فقد يكون ترتيب الفرز خاطئًا عند استخدام وظيفة الفرز مباشرة كما هو موضح في لقطة الشاشة أدناه. الآن لدي بعض الطرق لفرز عناوين IP بسرعة ودقة في Excel.

---

فرز عنوان 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")

اضغط Enter ثم اسحب مقبض التعبئة على الخلايا لتطبيق هذه الصيغة.

2. انسخ نتائج الصيغة والصقها كقيم في العمود التالي. انظر لقطة الشاشة:

3. احتفظ بالقيم الملصقة محددة، ثم انقر البيانات > فرز من الألف إلى الياء.

4. في تحذير الفرز الحوار، احتفظ بـ توسيع اللوحة محدد.

5. انقر فرز. الآن تم فرز عناوين IP من الأدنى إلى الأعلى.

يمكنك إزالة الأعمدة المساعدة.

---

فرز عنوان IP باستخدام VBA

إليك كود VBA يمكن أن يساعدك أيضًا.

1. اضغط على مفاتيح Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications.

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

3. ثم انقر فوق أدوات > مرجع، وتحقق من Microsoft VBScript Regular Expressions 5.5 في الحوار المنبثق.

4. انقر موافق واضغط F5 يظهر مربع حوار ينبثق لتذكيرك باختيار نطاق للعمل عليه.

5. انقر موافق. بعد ذلك يتم ملء عناوين IP بالأصفار.

6. حدد عناوين IP وانقر البيانات > فرز من الألف إلى الياء لفرزها.

---

فرز عنوان IP باستخدام ميزة النص إلى أعمدة

في الواقع، ميزة النص إلى أعمدة يمكن أن تساعدك أيضًا في Excel.

1. حدد الخلايا التي تستخدمها، وانقر البيانات > النص إلى أعمدة. انظر لقطة الشاشة:

2. في مربع حوار معالج تحويل النص إلى أعمدة، قم بما يلي:

حدد محدد بواسطة، وانقر التالي؛

حدد آخر واكتب . في مربع النص، وانقر التالي؛

حدد خلية بجانب عنوان IP لوضع النتيجة. انقر إنهاء.

3. حدد جميع الخلايا التي تحتوي على عناوين IP والخلايا المقسمة، وانقر البيانات > فرز.

4. في فرز الحوار، انقر إضافة الشروط لفرز البيانات من العمود B إلى E (الخلايا المقسمة). انظر لقطة الشاشة:

5. انقر موافق. الآن تم فرز الأعمدة.

---