كيف يمكن حذف الاسماء المكررة من اكثر من عمود وصف. مرفق مثال

[ياسر التهامي]

السلام عليكم 

 

لدي من A1 إلى K2  حقول مسجل فيها اسماء ولكن مكرره 

 

نريد استخراج الاسماء بدون تكرار 

 

في b4 إلى k4 

 

أو على حسب حذف المكرر. 

 

كيف يمكن عمل ذلك... 

 

وجزى الله خير الجزاء على من يقدم المساعدة. وشكراً. 

 

 

رابط الصورة 

https://www.dropbox.com/s/vizrecjwgp2a4n6/excel.jpg

 

 

 

 

Book0.zip

تم تعديل سبتمبر 20, 2013 بواسطه ياسر التهامي

[ياسر التهامي]

للرفع

[قنديل الصياد]

اخى الحبيب

يمكن ان تزور هذا الرابط وستجد طلبك باذن الله

 

http://www.officena.net/ib/index.php?showtopic=42476

 

 

وهذا الرابط ايضا

 

http://www.officena.net/ib/index.php?showtopic=42526&page=1

[ياسر التهامي]

اشكرك مقدماً يا عزيزي وسأنظر الروابط وارد عليك بإذن الله 

 

بارك الله فيك 

[ياسر التهامي]

قنديل الصياد قال فى 20 سبتمبر 2013 - 2:57 PM :

اخى الحبيب

يمكن ان تزور هذا الرابط وستجد طلبك باذن الله

 

http://www.officena.net/ib/index.php?showtopic=42476

 

 

وهذا الرابط ايضا

 

http://www.officena.net/ib/index.php?showtopic=42526&page=1

 

عزيزي الفاضل.. بعد فتح الروابط وتجربتها.. فهي فعلاً.. ممتازة.. وبالاخص الرابط الثاني.. والموجود فيه مثال ((قائمة بدون تكرار)) فهو مقارب لما اريده.. 

ولكن اغلب حذف الاسماء المكررة.. إنما يكون في الصفوف فقط.. 

 

ولكن في المثال الموضوع الخاص بي.. 

 

نريد ان نحذف الاسماء من الصفوف والاعمدة المكررة . على حد سواء..  

 

 

 

حاولت فعل ذلك والتعديل على مثال ((قائمة بدون تكرار)) ولكن دون جدوى.. 

 

 

ولكن هو الاقرب لما اريد.. 

 

 وهذه صورة توضيحة للمثال الذي اريده.. 

 

 

لينك الصورة ان لم تفتح 

وشكراً.. 

تم تعديل سبتمبر 20, 2013 بواسطه ياسر التهامي

[الـعيدروس]

السلام عليكم

جرب الكود التالي

Public Sub Ali_Rebt()
Dim Nm As Variant
Dim Nm_Cl As New Collection
Dim Tr_Nm As Variant
    Nm = Range(Cells(1, 2), Cells(2, 11)).Value
On Error Resume Next
For Each Tr_Nm In Nm
     Nm_Cl.Add Tr_Nm, Tr_Nm
Next Tr_Nm
On Error GoTo 0
For Tr_Nm = 1 To Nm_Cl.Count
     Cells(4, Tr_Nm) = Nm_Cl(Tr_Nm)
Next Tr_Nm
End Sub

[ياسر التهامي]

عذراً اخي ولكن كيف لي بتجربته على المثال المرفق 

 

Book0.zip

 

 

وأشكركم على سعة صدركم 

[ياسر التهامي]

 

السلام عليكم

جرب الكود التالي

Public Sub Ali_Rebt()
Dim Nm As Variant
Dim Nm_Cl As New Collection
Dim Tr_Nm As Variant
    Nm = Range(Cells(1, 2), Cells(2, 11)).Value
On Error Resume Next
For Each Tr_Nm In Nm
     Nm_Cl.Add Tr_Nm, Tr_Nm
Next Tr_Nm
On Error GoTo 0
For Tr_Nm = 1 To Nm_Cl.Count
     Cells(4, Tr_Nm) = Nm_Cl(Tr_Nm)
Next Tr_Nm
End Sub

عزيزي قمت بتجربة الكود.. ولكنه لا يأخذ جميع الاسماء.. 

 

هل يمكن حذف المكرر بدون اكواد.. ويكون الاعتماد على الدوال فقط ؟؟ 

[ياسر التهامي]

مثال على كود الدالة التي تقوم بحذف القيم المكررة في الصفوف 

 

=INDEX(A:A;MIN(IF(COUNTIF($B$3:B3;$A$4:$A$147);2^16;ROW($A$4:$A$147))))

 

 

ولكن كيف يمكن ان يتم عمل مثل هذا الكود... على الاعمدة والصفوف معاً.. 

 

 

واستخراج القيمة مع حذف المكرر منها في اعمدة.. بدلا من صفوف ؟؟؟ 

[قنديل الصياد]

شكرا استاذنا الجميل

الاستاذ / عباد

اخى الكريم

اليك كود استاذنا / عباد كما تريد

 

Book1.rar