سؤال كيف استخراج المكرر من اكثر من ورقه

[mmjksa]

مع التحية والتقدير للجميع،

كيف استخراج المكرر من اكثر من ورقه وتلوينها ؟

وشكرا

استخراج المكرر من عدة ورقات.rar

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

8 دقائق مضت, mmjksa said:

مع التحية والتقدير للجميع،

كيف استخراج المكرر من اكثر من ورقه وتلوينها ؟

وشكرا

استخراج المكرر من عدة ورقات.rar

الاسماء تارة ثلاثية وطوراً رباعية (يصعب العمل مع هذه البيانات)

[mmjksa]

شكرا لك،

فضلا فقط الاسماء المتشابهه، سواء ثلاثيه او رباعيه، اذا متشابهه تلون.

[mmjksa]

هل ينفع هذه التعليمة ؟؟

 

dim idx1 as integer
dim idx2 as integer
dim idx3 as integer
idx1 = 2
idx3 = 1
while sheets("Sheet1").Range("A" + Cstr(idx1)).Value <> "" 
    idx2 = 2
    while sheets("Sheet2").Range("B" + Cstr(idx2)).Value <> ""
        if sheets("Sheet1").Range("A" + Cstr(idx1)).Value = sheets("Sheet2").Range("B" + Cstr(idx2)).Value then
            idx3 = idx3 + 1
            sheets("Sheet3").Range("C" + Cstr(idx3)).value = sheets("Sheet1").Range("A" + Cstr(idx1)).Value
        endif
        idx2 = idx2 + 1
    wend
    idx1 = idx1 + 1
wend

[mmjksa]

اسعد الله اوقاتكم بكل خير،،،

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

ارجو من الاخوه الخبراء تطويره ان امكن للفائده العامه، وشكرا.

 

ملاحظه: الذي عمل الكود يقول في رساله:-

you can replace the inner loop with a Vlookup per the comment

استخراج المكرر من عدة ورقات1.rar

تم تعديل مارس 18, 2017 بواسطه mmjksa