تحليل جدول من حيث عدد تكرار البيانات

[فارس الشرقية]

ارجوا مساعدتي في تحليل جدول الاكسل من حيث توضيح تكرار States   و arSchoolName

بحيث يوضح  الجدول عدد تكرار كل ولاية وعدد تكرار كل اسم مدرسة

مع خالص الشكر والتقدير

 

school.rar

[ياسر خليل أبو البراء]

أخي الكريم المرفق غير واضح بعض الشيء

يرجى إرفاق بعض النتائج المتوقعة (يكتفى بمثال أو مثالين لفهم المطلوب بشكل أدق وأوضح)

تقبل تحياتي

 

[فارس الشرقية]

اشكر لك سرعة تجاوبك

مرفق لكم مع خالص الشكر  مثال للنتيجة المتوقعة

بمعنى تكرار محتويات الاعمدة

مثال للنتيجة المتوقعة.rar

[ياسر خليل أبو البراء]

أخي الكريم فارس

إليك الكود التالي عله يكون المطلوب

Sub ExtractUnique_Count()
    Dim R1 As Range, R2 As Range, Cel As Range, LR As Long
    Dim D1, D2, A1, A2
    
    LR = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row
    Set R1 = Sheet1.Range("B2:B" & LR)
    Set R2 = Sheet1.Range("D2:D" & LR)
    
    Set D1 = CreateObject("Scripting.Dictionary")
    Set D2 = CreateObject("Scripting.Dictionary")
    On Error Resume Next
    
    Sheet3.Range("A2:E1000").ClearContents
    For Each Cel In R1
        If Cel <> 0 Then D1.Add CStr(Cel), CStr(Cel)
    Next Cel
    A1 = D1.Items
    
    For Each Cel In R2
        If Cel <> 0 Then D2.Add CStr(Cel), CStr(Cel)
    Next Cel
    A2 = D2.Items
    
    Sheet3.Range("A2").Resize(D1.Count) = Application.Transpose(A1)
    With Sheet3.Range("B2").Resize(D1.Count)
        .Formula = "=COUNTIF(ورقة1!$B$2:$B$1000,A2)"
        .Value = .Value
    End With
    
    Sheet3.Range("D2").Resize(D2.Count) = Application.Transpose(A2)
    With Sheet3.Range("E2").Resize(D2.Count)
        .Formula = "=COUNTIF(ورقة1!$D$2:$D$1000,D2)"
        .Value = .Value
    End With
End Sub

وإليك الملف المرفق فيه تطبيق للكود

تقبل تحياتي

Extract Unique Items & Count Them YasserKhalil.rar

[سليم حاصبيا]

لما لا تستعمل هذه المعادلة في الورقة 4 خلية C2 , و تسحب نزولاً

=SUMPRODUCT(--(TRIM(ورقة1!$D$2:$D$341)=TRIM($A2)))