formül ile sütunu tekleme

[mucit2008]

sayfa 2'deki d sütünundaki isimleri sayfa a sütununda formül ile benzersiz hale nasıl getirebilirim sayfa 2 deki veri 30.000 de olabiliyor 2000 de yapıştır dediğimde sayfa 1 tekrarlanan isimleri otomatik olarak teke düşürmesi lazım

 

[Mdemir63]

Selamlar

Makro ile isterseniz.

Kodu Modül içine kopyalayıp deneyebilirsiniz

Sub Benzersiz()
Application.ScreenUpdating = False
    Sheets("Sayfa2").Select
    Columns("D:D").Select
    Selection.Copy
    Sheets("Sayfa1").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$A$40000").RemoveDuplicates Columns:=1, Header:= _
        xlNo
    Range("A1").Select
Application.ScreenUpdating = True
End Sub

 

[Mdemir63]

Selamlar

Dediğiniz gibi isimler Sayfa2 D sütununda ise;
Sayfa2 E2 Hücresine:

=EĞER(EĞERSAY($D$2:D2;D2)=1;MAK($E$1:E2)+1;"")

Sayfa1 A2 Hücresine:

=EĞERHATA(İNDİS(Sayfa2!$D:$E;KAÇINCI(SATIR(1:1);Sayfa2!$E:$E;0);1);"")

yazın istediğiniz kadar aşağıya sürükleyin