حصر غير المكرر بين عمودين ؟

[عبدالعزيز محمد]

السلام عليكم اخواني 

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

 

Aziz.rar

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

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

Sub Extract_uniques()
Dim i%
Dim My_rg As Range: Set My_rg = Range("a3:b21")
Range("c3").Resize(My_rg.Rows.Count, 1).ClearContents
With CreateObject("System.Collections.ArrayList")
 For i = 1 To My_rg.Cells.Count
   If Application.CountIf(My_rg, My_rg.Cells(i)) = 1 Then
   .Add (My_rg.Cells(i).Value)
   End If
 Next
.Sort
  Range("c3").Resize(.Count) = Application.Transpose(.ToArray)
End With
End Sub

الملف مرفق

Aziz.xlsm

[Ali Mohamed Ali]

أحسنت استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك