مقارنة بين جدولين

[me4you]

السلام عليكم

أخواني لوتكرمتم بإفادتي بطريقة لعمل مقارنة بين جدولين لاكتشاف كامل الاسطر المتشابهة وليس خلية واحدة فقط

مرفق ملف يبين المطلوب بشكل أوضح

ولكم جزيل الشكر

match tow tables.rar

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

جرب هذا الماكرو

Option Explicit
Sub extract_common_rows()
Dim tb1 As Range, tb2 As Range
Dim r1%, r2%, i%, j%, m%: m = 3
Range("I2").CurrentRegion.ClearContents
Set tb1 = Range("a3").CurrentRegion
Set tb2 = Range("e3").CurrentRegion
 r1 = tb1.Rows.Count: r2 = tb2.Rows.Count
    For i = 1 To r1
         For j = 1 To r2
            If tb1.Cells(i, 1) = tb2.Cells(j, 1) _
                And (tb1.Cells(i, 1).Offset(0, 1) = tb2.Cells(j, 1).Offset(0, 1)) _
                And (tb1.Cells(i, 1).Offset(0, 2) = tb2.Cells(j, 1).Offset(0, 2)) Then
                Range("i" & m).Resize(1, 3).Value = tb1.Cells(i, 1).Resize(1, 3).Value
                m = m + 1
             End If
         Next
   Next
End Sub

الملف مرفق

match tow tables.xlsm

[me4you]

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

لكنني كنت أفكر بحل عن طريق معادلات الاكسل وليس بالماكرو، فهل يمكن ذلك مع كل الاحترام والتقدير لكم