Hangisi çok ise o verinin adını yaz.

[Carpintero]

Merhabalar,

A1:A100 aralığında verilerimiz var.
B1 hücresine;
hangi veri daha fazla sayıda ise o verinin adını
vba yordamı ile yazdırmak istiyorum.

Not: Verilerin sayı olarak eşitliği söz konusu değil.

Yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Sub TEST()
    MsgBox "En çok tekrarlanan veri ; " & Chr(10) & _
           Evaluate("=INDEX(A1:A100,MATCH(MAX(COUNTIF(A1:A100,A1:A100)),COUNTIF(A1:A100,A1:A100),0))")
End Sub

 

[Carpintero]

İşe yaradı.
Çok teşekkür ederim Korhan Hocam
elinize sağlık.