Benzer Verileri Fazladan Aza Sıralamak

[xwyz1]

Merhaba, sorumun cevabını ne yabancı sitelerde ne de excel.web.tr 'de bulamadım.

Benzer verileri fazladan aza aşağıdaki gibi nasıl sıralarız?

KARIŞIK		SIRALI
-------		-------
ADRİANA 	PARİS
MİRANDA   	PARİS
MİRANDA		PARİS
PARİS		PARİS
PARİS		MİRANDA
PARİS		MİRANDA
PARİS		ADRİANA

 

[Necdet]

Merhaba,

Kodlar B sütununu yardımcı sütun olarak kullanır.

Sub Sirala()
    
    Dim i   As Long
    
    i = Cells(Rows.Count, "A").End(3).Row
    
    Application.ScreenUpdating = False
    
    Range("B2:B" & i).FormulaR1C1 = "=COUNTIF(C[-1],RC[-1])"
    Range("A2:B" & i).Sort Key1:=Range("B1"), order1:=xlDescending, Key2:=Range("A1"), order2:=xlAscending
    Columns("B:B").Delete Shift:=xlToLeft
    Range("A1").Activate
    
    Application.ScreenUpdating = True
    
End Sub

 

[xwyz1]

Merhaba,

Kodlar B sütununu yardımcı sütun olarak kullanır.

Sub Sirala()
    
    Dim i   As Long
    
    i = Cells(Rows.Count, "A").End(3).Row
    
    Application.ScreenUpdating = False
    
    Range("B2:B" & i).FormulaR1C1 = "=COUNTIF(C[-1],RC[-1])"
    Range("A2:B" & i).Sort Key1:=Range("B1"), order1:=xlDescending, Key2:=Range("A1"), order2:=xlAscending
    Columns("B:B").Delete Shift:=xlToLeft
    Range("A1").Activate
    
    Application.ScreenUpdating = True
    
End Sub

Üstad çok teşekkür ederim

 

[Necdet]

Üstad çok teşekkür ederim

Rica ederim, güle güle kullanınız.