Note: The other languages of the website are Google-translated. Back to English

كيفية فرز الأرقام داخل خلية في Excel؟

من السهل والشائع بالنسبة لنا فرز الأرقام في قائمة الأعمدة ، ولكن هل سبق لك أن حاولت فرز الأرقام داخل خلية واحدة؟ قد لا تكون هناك طريقة جيدة لك باستثناء ترتيبها واحدة تلو الأخرى ، وهنا سأتحدث عن كيفية فرز الأرقام داخل الخلايا في Excel.

فرز الأرقام داخل الخلايا باستخدام الصيغة

فرز الأرقام داخل الخلايا باستخدام وظيفة معرّفة من قبل المستخدم

قم بفرز الأرقام المفصولة بفواصل داخل الخلايا برمز VBA


السهم الأزرق الحق فقاعة فرز الأرقام داخل الخلايا باستخدام الصيغة

لفرز الأرقام داخل الخلايا في ورقة عمل ، يمكنك تطبيق الصيغة الطويلة التالية ، يرجى القيام بذلك على النحو التالي:

1. بجانب بياناتك ، يرجى إدخال الصيغة التالية ، في هذا المثال ، سأكتبها في الخلية C1 ، انظر لقطة الشاشة:

=TEXT(SUM(SMALL(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1)))

أرقام فرز المستندات في الخلايا 1

2. ثم اضغط كترل + شيفت + إنتر معًا ، ثم اسحب مقبض التعبئة إلى النطاق الذي تريد تطبيق هذه الصيغة ، وستحصل على الأرقام مرتبة من صغير إلى كبير. انظر لقطة الشاشة:

أرقام فرز المستندات في الخلايا 1

الملاحظات:

1. إذا كان رقم الرقم أكثر من 15 في الخلية ، فلن تحصل هذه الصيغة على النتيجة الصحيحة.

2. إذا كنت ترغب في فرز الأرقام بترتيب تنازلي ، يمكنك استخدام هذه الصيغة: =TEXT(SUM(LARGE(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1))).

3. في الصيغ أعلاه ، يشير A1 إلى الخلية التي تحتوي على الأرقام التي تريد فرزها ، ويمكنك تغييرها حسب حاجتك.


السهم الأزرق الحق فقاعة فرز الأرقام داخل الخلايا باستخدام وظيفة معرّفة من قبل المستخدم

نظرًا لوجود بعض القيود على الصيغة ، يمكنك استخدام ما يلي وظيفة تعريف المستخدم لفرز الأرقام في الخلايا التي تزيد عن 15 رقمًا.

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

كود فبا: فرز الأرقام داخل الخلايا

Function SortNumsInCell(pNum As String, Optional pOrder As Boolean) As String
'Update 20140717
Dim xOutput As String
For i = 0 To 9
  For j = 1 To UBound(VBA.Split(pNum, i))
    xOutput = IIf(pOrder, i & xOutput, xOutput & i)
  Next
Next
SortNumsInCell = xOutput
End Function

3. ثم احفظ وأغلق هذا الرمز ، عد إلى ورقة العمل الخاصة بك ، وأدخل هذه الصيغة = sortnumsincell (A1) في خلية فارغة بجوار بياناتك ، انظر لقطة الشاشة:

أرقام فرز المستندات في الخلايا 1

4. ثم اسحب مقبض التعبئة إلى الخلايا التي تريد أن تحتوي على هذه الصيغة ، وتم فرز جميع الأرقام في الخلايا بترتيب تصاعدي كما هو موضح في لقطة الشاشة التالية:

أرقام فرز المستندات في الخلايا 1

ملاحظة: إذا كنت تريد فرز الأرقام بترتيب تنازلي ، يرجى إدخال هذه الصيغة = sortnumsincell (A1,1،XNUMX).


السهم الأزرق الحق فقاعة قم بفرز الأرقام المفصولة بفواصل داخل الخلايا برمز VBA

إذا كانت الأرقام مفصولة بأحرف معينة مثل الفاصلة والفاصلة المنقوطة والنقطة وما إلى ذلك على النحو التالي لقطة الشاشة ، كيف يمكنك فرزها في الخلايا؟ الآن ، أقدم لك رمز VBA لفرزها.

أرقام فرز المستندات في الخلايا 1

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

رمز فبا: أرقام الفرز مفصولة بفاصلات داخل الخلايا

Sub SortNumsInRange()
'Update 20140717
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set objArrayList = CreateObject("System.Collections.ArrayList")
For Each Rng In WorkRng
    Arr = VBA.Split(Rng.Value, ",")
    For i = 0 To UBound(Arr)
        xMin = i
        For j = i + 1 To UBound(Arr)
            If Arr(xMin) > Arr(j) Then
                xMin = j
            End If
        Next j
        If xMin <> i Then
            temp = Arr(i)
            Arr(i) = Arr(xMin)
            Arr(xMin) = temp
        End If
    Next i
    Rng.Value = VBA.Join(Arr, ",")
Next
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ثم حدد الخلايا التي تحتوي على الأرقام في مربع المطالبة المنبثق ، انظر لقطة الشاشة:

أرقام فرز المستندات في الخلايا 1

4. ثم انقر فوق OK، تم فرز جميع الأرقام الموجودة في الخلايا تصاعديًا في النطاق الأصلي.

ملاحظة: يمكنك تغيير الفاصلة "،" إلى أي أحرف أخرى كما تريد في الكود أعلاه. ويمكن لهذا الرمز فقط فرز البيانات تصاعديًا.


مقالات ذات صلة:

كيفية فرز الأرقام باستخدام واصلات في Excel؟

كيفية فرز البيانات حسب القيمة الأكثر شيوعًا في Excel?

كيفية فرز عنوان البريد الإلكتروني حسب المجال في إكسيل؟

كيفية فرز الصفوف لوضع الخلايا الفارغة في المقدمة في Excel؟


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (13)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سيدي ، هل يمكنك المساعدة في فرز البيانات للنسخة المكررة أولاً سواء كانت صغيرة أو كبيرة مثال 1211 ---> 1112 9495 ---> 9945 7379 ---> 7739 شكرًا جزيلاً لمساعدتك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كنت أتساءل كيف هذا UDF ، = sortnumsincell (A1,1)، يمكن تعديلها بشكل عام ، مثل = sortnumsincell (A1، ""، "" ،، 1) حيث الحجة الأولى ، A1، هي الخلية المستهدفة ، الوسيطة الثانية ،""، هو محدد يمكن أن يأخذ أي حرف ، أو مسافة ، أو لا شيء ، مع وسيطة ثالثة ، ""، ومحدد مختلف أو نفس المحدد ، والوسيطة الرابعة ، 1 أو 0، مما يشير إلى فرز تصاعدي أو تنازلي ، مع عرض سلسلة النتيجة ، وفرزها بشكل صحيح ، داخل خلية واحدة ، مع محدد افتراضي مماثل للسلسلة الأصلية ما لم يتم تحديده في المصطلح الثالث. أرغب في العمل على كل من السلسلة والرقمية ، وفي بعض الأحيان قد تكون الوسيطة الثانية أو الثالثة عبارة عن تغذية سطر ، كما يتم إدخالها يدويًا باستخدام إدخال بديل. ستكون بطلي لهذا الشهر إذا كنت تستطيع فعل ذلك. حاولت ولكن فشلت فشلا ذريعا. شكرًا لك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي سلسلة من الخلايا بأرقام مفصولة بمسافة أريد فرزها. على سبيل المثال 8 4 5 1 6 3 أريد تصنيفها على أنها 1 3 4 5 6 8 أقدر أي مساعدة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل توجد طريقة لفرز المزيد من الأرقام في نفس الوقت من خلية واحدة؟ على سبيل المثال ، لدي قائمة تضم 50000 رقم أصل مثل A1234 ، A1235 ... وأحتاج إلى سحب 500 رقم محدد وأحتاج إلى سحب 500 رقم في ذلك الوقت لإجراء التغيير والحفظ. شكرًا لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بحاجة لفرز 84-12-74-26-98 أي طلب 12-26-74-84-98 أو 98-84-74-26-12 شكرًا لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كان CInt (Arr (xMin))> CInt (Arr (j)) وهو يعمل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد أن أفرز مبلغًا إجماليًا من 14000 إلى 20000 من صف مختلف مثال: - 2000,1500 صف واحد ومثل هذا المبلغ الذي يجب ترتيبه كل الصف
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، يبدو أن كود VBA خرج بشكل غير صحيح ، على سبيل المثال قبل 13,50,47,7,39،13،39،47،50 وبعد 7-XNUMX-XNUMX-XNUMX-XNUMX. اي افكار لماذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
hOLA ، MI PROBLEMA ES QUE TENGO EXEL 2019 EN ESPAÑOL COMO SERIA LA FORMULA؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية فرز نص AZ داخل خلية في Excel؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا على الخير الجميل لفرز الأرقام المفصولة بفواصل داخل الخلايا برمز VBA
فقط لقد واجهت مشكلة واحدة مع الكود.
لا يمكن للرمز الكشف عن رقم مكون من ثلاثة أرقام. على سبيل المثال الأرقام (65 ، 93 ، 53 ، 72 ، 64 ، 85 ، 103 ، 48 ، 77 ، 81 ، 54) بعد تطبيق الكود ، الترتيب الجديد (103 ، 48 ، 53 ، 54 ، 64 ، 65 ، 72 ، 77 ، 81 ، 85 ، 93)
هل لديك اي حل للمشكلة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، omer ، قد يكون الرمز أدناه يمكن أن يساعدك ، يرجى المحاولة:
تصنيف الخلية (r حسب النطاق) الوظيفة العامة كسلسلة
Dim bry () As Long، L As Long، U As Long
الفصل = ص (1) النص
ary = انقسام (ch، "،")
L = LBound (أري)
U = UBound (ary)
ReDim bry (من اليسار إلى اليمين)
بالنسبة إلى i = LBound (ary) إلى UBound (ary)
bry (i) = CLng (ary (i))
أنا القادم
استدعاء BubbleSort (bry)
بالنسبة إلى i = LBound (bry) إلى UBound (bry)
ary (i) = CStr (bry (i))
أنا القادم
CellSort = انضمام (ary، "،")
نهاية وظيفة

Sub BubbleSort (arr)
ديم ستريمب كمتغير
خافت أنا طويلة
خافت ي طالما
خافت lng
خافت lngMax طالما
lngMin = LBound (arr)
lngMax = UBound (arr)
بالنسبة إلى i = lngMin إلى lngMax - 1
بالنسبة إلى j = i + 1 إلى lngMax
إذا كنت arr (i)> arr (j) ثم
strTemp = arr (i)
arr (i) = arr (j)
arr (ي) = strTemp
إنهاء حالة
ي المقبل
أنا القادم
End Sub بعد إدخال الكود أعلاه ، يرجى تطبيق هذه الصيغة: = CellSort (A1).وستحصل على النتيجة التي تحتاجها.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hola، se pueden ordenar letras en una sola celda por orden alfabético؟ يو يو اكسل الفقرة ماك. جراسياس
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة