DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba,
Talebiniz eski sürümler içinse kullanıcı tanımlı fonksiyon yazılabilir. Ya da forumda alternatif BENZERSİZ verileri listeleyen formüller paylaşılmıştı. Arama yaparsanız ulaşabilirsiniz.
[/ALINTI][/CODE]
Option Explicit
Sub Benzersiz_Liste()
Dim Unique_Data As Variant
Range("D:D").Clear
Unique_Data = WorksheetFunction.Unique(Range("A:A"))
Range("D1").Resize(UBound(Unique_Data)) = Unique_Data
End Sub