اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

 

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

  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information