أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .




10-10-2018 06:18 مساء
مشاهدة مشاركة منفردة [9]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 240
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 8
قوة السمعة : 2399
الاعجاب : 541
 offline 
look/images/icons/i1.gif استخراج القيم المكررة فقط
بارك الله بك اخي حسام
و زيادة في اثؤاء الموضوع  هذا الكود

Option Explicit
Sub Extarct_dup()
Dim r%, m%: m = 4
Dim x%, Y%, k%
Range("d1").CurrentRegion.Offset(1, 0).Columns(1).ClearContents
r = Range("a1").CurrentRegion.Columns(1).Rows.Count
k = 2
Do Until k > r
    x = Application.CountIf(Cells(2, 1).Resize(r, 1), Cells(k, 1))
    Y = Application.CountIf(Cells(2, 4).Resize(k - 1, 1), Cells(k, 1))
       If x > 1 And Y = 0 Then
         Cells(m - 2, 4) = Cells(k, 1)
         m = m + 1
       End If
       k = k + 1
Loop
End Sub




اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 09:19 صباحا

أعلن هنا
أعلن هنا
أعلن هنا