مقارنة بين جدولين ( طلب )( عنوان معدل )

[majidshamoun]

السلام عليكم 

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

وشكرا لكم مقدما ً

 

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

 اليك هذا الملف 

ربما يكون المطلوب

مقارنة جدولين.rar

[majidshamoun]

اشكرك اخي العززيز سليم .. هذا ماقصدته .. لكن هل يمكن عمل المقارنة في حال وضع اسماء بدل الارقام .. وان امكن ذلك .. اتمنى ان تساعدني في ذلك

وشكرا لسعة صدرك

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

لا مانع من وضع اسماء

شرط الا تكون هناك مسافات زائدة ما عدا المسافة بين كلمتين

او انت بحاجة الة معادلة اخرى في حال وجود مسافات زائدة

[ibn_egypt]

اخى الفاضل 

 

بعد إذن أستاذنا الكريم أ.سليم، ولإثراء الموضوع مرفق ملف به مقارنة العمودين باستخدام الكود البرمجي ووضع المكرر في العمود الثالث

 

تحياتي  

CompareA&B.rar

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

 نفس الموضوع لكن بكود اقصر

Sub othermethod()
    Dim taba As Range, tabb As Range
    Set ws = Sheet1
    lra = ws.Cells(Rows.Count, 1).End(xlUp).Row
    lrb = ws.Cells(Rows.Count, 2).End(xlUp).Row
    Set taba = Range("a2:a" & lra): Set tabb = Range("b2:b" & lrb)
    Set ct = Application.WorksheetFunction
i = 1
For Each x In taba
    If ct.CountIf(tabb, x) >= 1 Then
    Cells(i + 1, 4) = x: i = i + 1
    End If
Next
End Sub

[majidshamoun]

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