Ençok_olan kullanımı hakkında

[lgcrn]

bir sayı kümesinden en çok olan sayıyı tespit ettikten sonra o sayıdan bir sonraki çok olan sayıyı tespit etmek istiyorum.
mesela en çok olan sayı formüle göre
2

2 den sonra en çok olanı aynı formülle nasıl tespit edebilirim.

ekte örnek dosyayı gönderiyorum.

yardımcı olursanız sevinirim.

 

[f_desat]

bulmuş olduğum bir örneği paylaşıyorum,Top 5 sorununu çözer sanırım.

 

[lgcrn]

kullandığım dosya boyutu fazla olduğu için bunu uygulasam daha da ağırlaşır
birazda çalışma mantığını anlayamadım.
düşeyara yatayara araştırmam lazım.
ama ençokolan bana en mantıklısı geliyor.
yazdığım gibi olsa daha kolay olur gibime geldi.

teşekkürler.

 

[lgcrn]

Bakabildiniz mi?
olma dı da ?

 

[Muhammet Okumuş]

Eğer makro çözüm işinizi görecek ise

Sub EnÇokOlan()
Dim i As Byte
On Error Resume Next
Application.ScreenUpdating = False
Range("D1:F52").Copy Range("K1")
For i = 1 To 4
Range("A1") = "=Mode(D1:F52)"
Range("H" & i + 7) = Range("A1").Value
Range("D1:F52").Replace What:=Range("A1").Value, Replacement:=" ", LookAt:=xlWhole, SearchOrder:=xlByColumns, MatchCase:=True
Next
Range("K1:M52").Copy Range("D1")
Range("K1:M52") = ""
Range("A1") = ""
End Sub

Kodu deneyiniz. Kendi isteğinize göre kopyalama yerini ve formül hücresini değiştirebilirsiniz.
Ben A1 ve K1:M52 aralığını seçtim. Yani bu hücrelerde veriniz varsa silinir.