Formül İle Benzersiz Sıralama

[tavizsiz87]

Merhaba Arkadaşlar,
A sütununda karışık ve benzer rakamlar var, bunları B sütununa küçükten büyüğe ve benzersiz sıralamanın formülü varmıdır? Dizi formül şeklinde birşey buldum ancak dizi formül tabloma uygun değil. Değerli görüşleriniz için şimdiden teşekkür eder, iyi çalışmalar dilerim.

 

[rabbace]

Merhaba,

Muhakkak formülle de yapılabilir yöntemi vardır fakat aklıma makro ile aşağıdaki yöntem geldi.
Bir modüle kodları atıp buton ekleyip yapabilirsiniz. 10000 satır veriniz olduğu varsayılmıştır.

Kırmızı renkli yerleri kendi dosyanıza göre değiştiriniz.

Sub Makro1()
'
' Makro1 Makro
'

'
Application.ScreenUpdating = False
    
    Columns("A:A").Select
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$B$1:$B$[COLOR="red"]10000[/COLOR]").RemoveDuplicates Columns:=1, Header:=xlNo
    ActiveWorkbook.Worksheets("[COLOR="red"]Sayfa1[/COLOR]").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("[COLOR="red"]Sayfa1[/COLOR]").Sort.SortFields.Add Key:=Range("B1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("[COLOR="Red"]Sayfa1[/COLOR]").Sort
        .SetRange Range("B1:B[COLOR="red"]10000[/COLOR]")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("C1").Select
End Sub

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı inceleyin.

http://www.excelgurusu.com/tekrarsiz-liste/


.

 

[tavizsiz87]

Arkadaşlar çok teşekkür ederim beni bir dertten kurtardınız, her iki işlemde işimi görüyor emeğinize sağlık.