كيف تجد القيمة الأكثر تكرارًا (رقمًا أو نصًّا) في قائمة ضمن Excel؟

بشكل عام، يمكنك استخدام الدالةMODE(=MODE(A1:A16)) للعثور على الرقم الأكثر شيوعًا ضمن نطاق معين. لكن هذه الدالة لا تدعم السلاسل النصية. وللحصول على القيمة الأكثر تكرارًا، يمكنك تطبيق صيغة الصفيف التالية. يُرجى اتباع الخطوات التالية:

في خلية فارغة بجانب البيانات، أدخل الصيغة أدناه، ثم اضغط معًا على مفاتيحShift + Ctrl + Enter.

=INDEX($A$1:$A$16,MODE(MATCH($A$1:$A$16,$A$1:$A$16,0)))

هل الصيغة معقدة للغاية بحيث يصعب تذكّرها؟ احفظ الصيغة كإدخال نص تلقائي لإعادة استخدامها بنقرة واحدة فقط في المستقبل! قراءة المزيد…     تجربة مجانية

إذا كنت قد قمت بتثبيت Kutools لـ Excel، فيمكنك بسهولة تطبيق صيغةالعثور على القيمة الأكثر شيوعًاالخاصة به للحصول بسرعة على القيمة الأكثر تكرارًا من قائمة أو عمود في Excel.

1. حدد خلية فارغة لوضع القيمة التي تم العثور عليها فيها، ثم انقر علىKutools > مساعد الصيغة > مساعد الصيغة.

2. في مربع حوار مساعد الصيغة، اخترLookup من قائمة منسدلةنوع الصيغة، ثم انقر لتحديدالعثور على القيمة الأكثر تكرارًافي مربع القائمةحدد صيغة، وحدد القائمة أو العمود في مربعRange، ثم انقر على زرOk. انظر لقطة الشاشة:

بعد ذلك، ستلاحظ أن القيمة الأكثر شيوعًا/تكرارًا قد تم العثور عليها ووضعها في الخلية المحددة. راجع لقطة الشاشة:

باستخدام كود VBA التالي، يمكنك ليس فقط تحديد القيمة الأكثر تكرارًا، بل أيضًا حساب عدد مرات ظهور الكلمة الأكثر شيوعًا.

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

2. انقر علىInsert > Module، ثم الصق الكود التالي فينافذة الوحدة النمطية (Module Window).

كود VBA: العثور على القيمة الأكثر شيوعًا من قائمة

Sub FindFrequency()
'Update 20140326
Dim Rng As Range
Dim WorkRng As Range
Set dic = CreateObject("scripting.dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xMax = 0
xOutValue = ""
For Each Rng In WorkRng
    xValue = Rng.Value
    If xValue <> "" Then
        dic(xValue) = dic(xValue) + 1
        xCount = dic(xValue)
        If xCount > xMax Then
            xMax = xCount
            xOutValue = xValue
        End If
    End If
Next
MsgBox "The most common value is: " & xOutValue & " Appeared " & xMax & " Times"
End Sub

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

4. بعد ذلك، انقر علىOK، وستظهر لك نافذة منبثقة تعرض المعلومات التالية: