پرسش ساخت یک لیست از یک ستون بدون داده های تکراری

[نوربخش]

سلام
یه فایل ضمیمه هست که تو sheet1 فهرستی از اسامی داره که موارد تکراری هم داخلش هست
من میخوام تو یه sheet دیگه فهرست دیگری از همین اسامی داشته باشم اما بدون تکرار.

توضیح اینکه نمیخوام به شکل combo box باشه. پیشاپیش ممنونم
راحت تر عرض کنم ، تو sheet2 فرمولی بنویسیم که مقادیر sheet1 را بدون تکرار نشان دهد

[iranweld]

با سلام

در فایل پیوست با استفاده از قابلیت اجرای ماکرو در صورت تغییر در سلولهای اکسل ، ماکرویی فراخوانی میگردد که ستون B شیت اول را بصورت بدون تکرار در ستون B شیت دو کپی مینماید.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("b:b")) Is Nothing Then UniqueCopy
 

End Sub 

ماکرو مورد نظر

Sub UniqueCopy()

 Sheet2.Columns(2).Clear
 Sheet2.Columns(3).Clear
 
 On Error Resume Next
 
    With ActiveSheet
         .Range("B1", .Range("B65536").End(xlUp)).AdvancedFilter _
             Action:=xlFilterCopy, CopyToRange:=Sheet2.Range("B2"), Unique:=True
    End With
    
    X = Sheet2.Cells(Sheet2.Rows.Count, "B").End(xlUp).Row
    
    For I = 3 To X
    
   Sheet2.Range("A" & I).Value = I - 2
    
   
    Next I
    
    Sheet2.Range("A2").Select
    
On Error GoTo 0

End Sub 

[fbaheri]

با سلام واسه این کار کافیه اطلاعات رو توی sheet بعدی کپی کنی ، اطلاعات رو select کنی و از تب data ، data tools گزینه Remove Duplicates رو بزنی همه تکراری ها حذف میشن

[akbartavasoli]

سلام
و بسیار ممنون از راهنمایی تون
لطفن از مراحل انجام کار هم توضیح بدید

[مصطفی رجبی]

سلام
یه فایل ضمیمه هست که تو sheet1 فهرستی از اسامی داره که موارد تکراری هم داخلش هست
من میخوام تو یه sheet دیگه فهرست دیگری از همین اسامی داشته باشم اما بدون تکرار.

توضیح اینکه نمیخوام به شکل combo box باشه. پیشاپیش ممنونم
راحت تر عرض کنم ، تو sheet2 فرمولی بنویسیم که مقادیر sheet1 را بدون تکرار نشان دهد

سلام فکرمیکنم مسئله باروشی که درفایل پیوست قراردادم حل بشه.