كيف يمكن ترتيب البيانات بترتيب عكسي في Excel؟
في Excel، تُرتّب الصيغة النموذجية=RANK(cell, range) بياناتك بحيث تحصل القيمة الأكبر على الرتبة 1، بينما تُمنح القيمة الأصغر أدنى رتبة. لكن قد تواجه حالات تحتاج فيها إلى عكس هذا المنطق—أي أن تحصل القيمة الأصغر على أعلى رتبة، والقيمة الأكبر على آخر رتبة—كما يظهر في لقطة الشاشة أدناه. ويكون هذا مفيدًا بشكل خاص عند تحليل بيانات تمثّل الأداء الأفضل بالقيم الأقل، مثل أوقات السباق أو التكاليف أو عدد الأخطاء.
ترتيب البيانات بترتيب عكسي|رمز VBA: تعيين رتب عكسية تلقائيًا
ترتيب البيانات بترتيب عكسي
لإجراء ترتيب عكسي في Excel، يمكنك تعديل صيغةRANK القياسية قليلاً بإضافة وسيط إضافي. ويتيح لك هذا النهج ترتيب البيانات بسهولة من الأصغر إلى الأكبر، بدلاً من الترتيب الافتراضي.
اختر خلية فارغة لتظهر فيها نتيجة الترتيب العكسي. بافتراض أن نطاق البيانات يمتد من الخلية B2 إلى B10، أدخل الصيغة التالية في أول خلية مجاورة لبياناتك (مثل الخلية C2):
=RANK(B2,$B$2:$B$10,1)بعد إدخال الصيغة، اضغطEnter. ولتطبيق الصيغة على الخلايا الأخرى في عمودك، استخدم مقبض التعبئة: ضع مؤشر الفأرة على الزاوية السفلية اليمنى للخلية التي أدخلت فيها الصيغة (C2)، وعندما يتحول المؤشر إلى علامة زائد (+)، اسحبه لأسفل لتلقائيًا تعبئة الخلايا المتبقية في النطاق المجاور لبياناتك (حتى الخلية C10 في هذا المثال).
إذا كان نطاق البيانات مختلفًا، فكل ما عليك هو تعديل مراجع الخلايا داخل الصيغة لتتناسب مع بياناتك الفعلية. تذكّر أنه في حال وجود قيم مكررة، ستُعيّن دالة RANK نفس الرتبة لتلك القيم، وستُهمَل الرتب التالية (على سبيل المثال، إذا كان هناك عنصران متعادلان في الرتبة الثانية، فستكون الرتبة التالية هي الرابعة).
يُعدّ الترتيب العكسي مفيدًا بشكل خاص عندما تريد تسليط الضوء على القيم الأدنى أو الأوقات الأسرع، ويؤدي أداءً ممتازًا مع مجموعات البيانات التي تكون فيها التعادلات مقبولة أو متوقعة.
رمز VBA: تعيين رتب عكسية تلقائيًا
لمجموعات البيانات الكبيرة أو السيناريوهات التي يتم فيها تحديث بياناتك بشكل متكرر وتحتاج إلى حل أكثر أتمتة، يمكنك استخدام رمز VBA لتعيين الرتب العكسية بسرعة وكفاءة. هذه الطريقة مثالية للمستخدمين المتمرسين في التعامل مع كميات بسيطة من البرمجة والراغبين في التخلص من الخطوات اليدوية المتكررة.
1. افتح محرر VBA بالنقر علىأدوات المطور > Visual Basic. في نافذة Visual Basic for Applications، انقر علىإدراج > وحدة نمطية، ثم الصق الرمز التالي في لوحة الوحدة النمطية:
Sub AssignReverseRank()
Dim dataRange As Range
Dim outputRange As Range
Dim i As Long
Dim j As Long
Dim temp As Variant
Dim arr As Variant
Dim sortedArr As Variant
Dim rankArr() As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set dataRange = Application.InputBox("Select the data range to rank (single column):", xTitleId, "", Type:=8)
If dataRange Is Nothing Then Exit Sub
Set outputRange = Application.InputBox("Select the first cell for output ranks:", xTitleId, "", Type:=8)
If outputRange Is Nothing Then Exit Sub
arr = dataRange.Value
ReDim rankArr(1 To UBound(arr, 1), 1 To 1)
sortedArr = arr
' Sort the array in ascending order
For i = 1 To UBound(sortedArr, 1) - 1
For j = i + 1 To UBound(sortedArr, 1)
If sortedArr(i, 1) > sortedArr(j, 1) Then
temp = sortedArr(i, 1)
sortedArr(i, 1) = sortedArr(j, 1)
sortedArr(j, 1) = temp
End If
Next j
Next i
' Assign reverse ranks
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(sortedArr, 1)
If arr(i, 1) = sortedArr(j, 1) Then
rankArr(i, 1) = j
Exit For
End If
Next j
Next i
outputRange.Resize(UBound(rankArr, 1), 1).Value = rankArr
End Sub2. لتشغيل الماكرو، انقر على زر
التشغيل أو اضغطF5. سيتم مطالبتك بتحديد نطاق البيانات (اختر عمودًا واحدًا تريد عكس ترتيبه)، ثم حدد الخلية الأولى التي تريد أن تبدأ فيها نتائج الترتيب. انقر «موافق» بعد كل اختيار.
يقوم هذا الماكرو بفرز بياناتك ترتيبًا تصاعديًّا وتعيين رتب عكسية وفقًا لذلك، بحيث تحصل القيمة الأصغر على الرتبة 1. وهو مثالي لترتيب آلاف الإدخالات دفعة واحدة أو لأتمتة عملية الترتيب في التقارير التي يتم تحديثها بانتظام.
عند استخدام هذا الماكرو، تأكد من أن بياناتك متصلة وتحتوي فقط على قيم رقمية. فقد تؤدي الخلايا غير الرقمية أو الفارغة إلى نتائج غير صحيحة، لذا يُوصى بتنظيف بياناتك أولًا. كما يُعد حفظ ملف العمل قبل تشغيل الماكروات إجراءً احترازيًّا ذكيًّا لتجنب أي تغييرات غير مقصودة.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل