Tekrar eden veri bulup siralama hakkinda

[kurdogkhn]

Merhabalar;

Elimde bir excel tablom bulunuyor. Bunun icinde bir stunda tekrar eden veriler bulunuyor. Ancak benim yapmam gereken bu tekrar eden verileri bulup en cok tekrar edenden aza doğru siralamam gerekiyor. Bunun icin bana yardimci olacak formulu yazabilirseniz cok sevinirim.

Saygilarimla

 

[doganbaris]

yanındaki kolona CountIf ( türkçesi EğerSay) komutu ile , belirttiğin aralıkta kaç adet o veriden olduğunu belirtebilir, daha sonra da bu kolona göre azalan sıralama yaptırabilirsiniz

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.

 

[suleyman242]

Tekrar eden verileri bulup en cok tekrar edenden aza doğru siralamam gerekiyor.

Daha önce başka bir form üyesi için hazırlamıştım. Umarım faydası olur.

 

[omerceri]

Döngüsüz bir alternatif. İlk Satır başlık, verileri "A" sütununa yazının, Döküm "G" ve "H" Sütununa geliyor.
Columns("G:H").ClearContents
Say = Range("A65536").End(3).Row
Range("A1:A" & Say).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A1"), CopyToRange:=Range("G1"), Unique:=True


Say1 = Range("G65536").End(3).Row
Range("H2").FormulaR1C1 = "=COUNTIF(RC[-7]:R[" & Say - 2 & "]C[-7],RC[-1])"
Range("H2").AutoFill Destination:=Range("H2:H" & Say1)
Range("G2:H" & Say1).Sort Key1:=Range("H2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("H:H").Copy
Columns("H:H").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H1").Value = "Adet"