استخراج بيانات من عمود بدون تكرار

[ليمونة الحلوة]

السلام عليكم 

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

ووضعها في عمد اخر لكن بدون تكرار 

يوجد مثال في المرفق

ولكم الشكر 

1.rar

[shreif mohamed]

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

مرفق نمو>ج كل ماهو عليك ان تقفي في المكان ال>ي تريدين نسخ البينات به دون تكرار و>لك بالضغط علي مفتاحي 

CTRL + J

1.rar

[ليمونة الحلوة]

29 minutes ago, shreif mohamed said:

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

مرفق نمو>ج كل ماهو عليك ان تقفي في المكان ال>ي تريدين نسخ البينات به دون تكرار و>لك بالضغط علي مفتاحي 

CTRL + J

1.rar

شكرأ لك 

انا الأوفيس عندي 2010 جربت ما مشي الحال 

[shreif mohamed]

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

 

1.rar

ولا تنسي بتمكين الماكرو 

enable content

[ابراهيم الحداد]

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

جربى هذا الكود

Sub uniqdata()
Dim x As Long, LR As Long
Dim R As Long, p As Long
Application.ScreenUpdating = False
LR = Range("B" & Rows.Count).End(xlUp).Row
For R = 3 To LR
x = WorksheetFunction.CountIf(Range("B3:B" & R), Range("B" & R))
If x = 1 Then
p = p + 1
Cells(p + 3, 8) = Range("B" & R).Value
End If
Next
Application.ScreenUpdating = True
End Sub

 

[ليمونة الحلوة]

كل الشكر لك 

 

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

بعد اذن اخي زيزو هذا الكود من سطرين

Sub Salim()
    Range("F4", Range("F4").End(4)).ClearContents
    Range("B2", Range("B2").End(4)).AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("F4"), Unique:=True
End Sub