(مطلوب معرفة عدد مرات تواجد (رقم)

[mmase1989]

السلام عليكم

بارك الله فيك وجزاكم عنا خير الجزاء 

مرفق ملف

 مطلوب معرفة عدد مرات وجود رقم لنص معين جربت بدالة countifs بس ماظبط معي 

مثال.xlsx

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

جرب هذا الكود

Option Explicit
Sub Find_all()
Dim S As Worksheet
Dim D As Object
Dim Ro%, k%, a, b, c
Set S = Sheets("sheet1")
Set D = CreateObject("Scripting.Dictionary")
S.Range("E1").CurrentRegion.Offset(1).ClearContents
Ro = S.Cells(Rows.Count, 2).End(3).Row
 With D
 k = 2
Do Until k = Ro + 1
   If S.Range("B" & k) <> vbNullString Then
    Select Case S.Range("B" & k)
    Case "الشرقية": a = a + 1
    Case "الغربية": b = b + 1
    Case "القاهرة": c = c + 1
    End Select
      If Not D.exists(S.Range("B" & k).Value) Then
        D.Add (S.Range("B" & k).Value), _
        IIf(IsNumeric(S.Range("C" & k).Value), S.Range("C" & k).Value, 0)
      Else
        D(S.Range("B" & k).Value) = D(S.Range("B" & k).Value) + _
        IIf(IsNumeric(S.Range("C" & k).Value), S.Range("C" & k).Value, 0)
     End If
   End If
  k = k + 1
  
Loop

  Cells(2, "E").Resize(.Count - 1) = _
  Application.Transpose(.keys)
  Cells(2, "F").Resize(.Count - 1) = _
  Application.Transpose(.Items)
  Cells(2, "G") = a
  Cells(3, "G") = b
  Cells(4, "G") = c
  .RemoveAll
 End With
 Set D = Nothing: Set S = Nothing
End Sub

الملف مرفق

Example.xlsm

[mmase1989]

الله يجازيك حضرتك كل خير يارب م

شكور علي تعبك

انا بس اقصد عدد مرات تواجد رقم لكل محافظة

بمعني كم عدد تواجد رقم لكل محافظة وليس المجموع

يعني محافظة مثل الشرقية عدد مرات تواجد رقم في صف الهيكل (3 مرات فقط)  وهكذا

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

احذف هذا السطر من الكود و ترى كل شيء كما تريد

Cells(2, "F").Resize(.Count - 1) = _
  Application.Transpose(.Items)