كيفية العثور على القيمة الأكثر شيوعًا (رقم أو سلسلة نصية) من قائمة في Excel؟

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

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

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

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

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

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

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

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

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

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

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

كود 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. وبعد ذلك انقر على موافق، ستحصل على مربع رسالة يعرض المعلومات التالية: