انتقل إلى المحتوى الرئيسي

كيفية فرز عنوان 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 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، انسخ الرمز والصقه في البرنامج النصي الفارغ.

فبا: املأ عنوان 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 Regular Expressions 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: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 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