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

[i_alabdullah]

السلام عليكم اخواني الأعزاء

عندي مشكلة وعجزت عن الحل و بأذن الله يكون الحل لديكم

لدي جدولين

الاول يحتوي على معرف المستخدم والشقة المسؤول عليها

والجدول الاخر يحتوي كذلك معرف المستخدم والشقة المسؤول عليها

الاختلاف هناك بيانات متشابهة بين الجدولين وهناك بيانات مختلفة لانه قد يكون هناك شخص مسؤول على اكثر من شقة

وكما هو موضح في الملف المرفق هناك تكرار في البيانات

كيف استطيع معرفة البيانات المتطابقة بين الجدولين والاختلافات

 

شكرا لكم

Test.xlsxTest.xlsx

تم تعديل ديسمبر 2 بواسطه i_alabdullah
تعديل العنوان

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركانه

لم نوضح لنا مكان كتابة النتائج النهائية وكيف ترغب شكلها النهائي

في الملف العمود  c كلمة نطايق نعنى ان لها مثيل في العمودين d-e

وفي العمود f  كلمة نطايق نعنى ان لها مثيل في العمودين A - B

الكود

Sub CompareTablesInOneSheet()
    Dim ws As Worksheet
    Dim lastRow1 As Long
    Dim lastRow2 As Long
    Dim i As Long
    Dim j As Long
    
    Set ws = ThisWorkbook.Sheets("ورقة1")

    lastRow1 = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastRow2 = ws.Cells(ws.Rows.Count, 4).End(xlUp).Row
    
    ws.Range("C2:C" & lastRow1).ClearContents
    ws.Range("F2:F" & lastRow2).ClearContents
    
    For i = 2 To lastRow1
        For j = 2 To lastRow2
            If ws.Cells(i, 1).Value = ws.Cells(j, 4).Value And ws.Cells(i, 2).Value = ws.Cells(j, 5).Value Then
                ws.Cells(i, 3).Value = "متطابق"
                ws.Cells(j, 6).Value = "متطابق"
                Exit For
            End If
        Next j
        If ws.Cells(i, 3).Value <> "متطابق" Then
            ws.Cells(i, 3).Value = "غير متطابق"
        End If
    Next i
    
    For j = 2 To lastRow2
        If ws.Cells(j, 6).Value <> "متطابق" Then
            ws.Cells(j, 6).Value = "غير متطابق"
        End If
    Next j
    
    MsgBox "تم مقارنة البيانات بنجاح!"
End Sub

الملف

Test.xlsb

تم تعديل ديسمبر 3 بواسطه عبدالله بشير عبدالله

[i_alabdullah]

يا سلام عليك اخي عبدالله بشير عبدالله

الحل ممتاز والان استطيع تحديد الفوارق

جزاك الله كل خير