ايجاد عدد مرات التكرار

[ثامر 244]

السلام عليكم ورحمة الله وبركاته

من فضلكم عندي ملف اكسل وفيه قيم كثيرة جدا واريد البحث عن عدد مرات تكرار هذه القيم ولكن الامر مرهق عن طريق البحث 

وقد جربت دالة COUNTIF لكن الاعداد تظهر مختلفة عن البحث مرفق ملف الاكسل

وشكرا جزيلا

 

EURUSD1440.xlsx

[عبدللرحيم]

جـرب الملف المرفق

EURUSD1440 (1).xlsm

[ثامر 244]

شكرا جزيلا استاذي العزيز الملف جيد ولكن ايضا لايحسب بدقة اذا وضعت كل الاعمدة في العامود A وحسبت مرة واحدة , ارجوا المساعدة من فضلك

تحياتي وتقديري

[عبدالفتاح في بي اكسيل]

تفضل  اخي  هذا  بالكود  ولكن ليس  سريع  لضخامة بياناتك

EURUSD1440 (1).xlsm

[ثامر 244]

شكرا جزيلا استاذ عبد الفتاح لازالت نفس المشكلة قائمة الحساب غير دقيق , لا ادري ماذا افعل تعبتكم معي

تحياتي وتقديري

[عبدالفتاح في بي اكسيل]

جرب هذا  الكود

Sub abdelfatta()
   Dim Ary As Variant
   Dim r As Long, c As Long
   
   Ary = Range("A4").CurrentRegion.Value2
   With CreateObject("scripting.dictionary")
      For r = 1 To UBound(Ary)
         For c = 1 To UBound(Ary, 2)
            .Item(Ary(r, c)) = .Item(Ary(r, c)) + 1
         Next c
      Next r
      Range("E4").Resize(.Count, 2).Value = Application.Transpose(Array(.Keys, .items))
   End With
End Sub

الاكواد شغالة معي  ملفك هو فيه مشكلة  جرب تصميم ملف  اخر 

[ثامر 244]

عذرا استاذي اين اضع هذا الكود من فضلك

المشكلة انه عند البحث اليدوي يعمل جيدا ولكن عند البحث بالدالة ليس دقيق, طبعا للعلم االملف الاصلي هو عبارة عن ملف HTML

[عبدالفتاح في بي اكسيل]

في محرر الاكواد  اضغط  alt+ f11  ثم  ادراج  موديل جديد  ثم  لصق 

[نبيل عبد الهادي]

 

 

[ثامر 244]

يبدو ان الامر لن ينجح كما ذكرت حضرتك بسبب ضخامة البيانات على العموم انا اشكركم جزيل الشكر والامتنان على تعبكم ووقتكم 

تحياتي وتقديري