Excel'de bir listedeki en sık tekrarlanan değeri (sayı veya metin dizesi) nasıl bulabilirim?

Genellikle bir aralıktaki en yaygın sayıyı bulmak için MODE işlevini (=MODE(A1:A16)) kullanabilirsiniz. Ancak bu MODE işlevi metin dizeleriyle çalışmaz. En çok tekrar eden değeri bulmak için aşağıdaki dizi formülünü uygulayabilirsiniz. Lütfen şu şekilde ilerleyin:

Verilerin yanındaki boş bir hücreye aşağıdaki formülü girin ve Shift + Ctrl + Enter tuşlarına birlikte basın.

=INDEX($A$1:$A$16,MODE(MATCH($A$1:$A$16,$A$1:$A$16,0)))

Formül hatırlaması için çok mu karmaşık? Formülü bir Otomatik Metin girdisi olarak kaydedin ve ileride sadece bir tıkla yeniden kullanın! Daha fazla okuyun…     Ücretsiz deneme

Eğer Kutools for Excel yüklüyse, bir listeden veya Excel sütunundan en sık tekrarlanan değeri hızlıca almak için En Sık Virgül Değerini Bul formülünü kolayca uygulayabilirsiniz.

1. Bulunan değeri yerleştirmek istediğiniz boş bir hücre seçin ve Kutools > Formül Yardımcısı > Formül Yardımcısı'na tıklayın.

2. Formül Yardımcısı iletişim kutusunda, Arama seçeneğini Formül Türü açılır liste kutusundan seçin, Bir formül seçin listesinde En sık tekrarlanan değeri bul öğesine tıklayarak seçin, Aralık kutusuna listenizi veya sütununuzu girin ve Tamamdüğmesine tıklayın. Ekran görüntüsüne göz atın:

Ve ardından en yaygın/sık tekrarlanan değerin bulunup seçili hücreye yerleştirildiğini göreceksiniz. Ekran görüntüsüne bakın:

Aşağıdaki VBA koduyla yalnızca en çok tekrar eden değeri bulmakla kalmaz, aynı zamanda en yaygın kelimenin kaç kez geçtiğini de sayabilirsiniz.

1. ALT + F11 tuşlarına basılı tutun; bu işlem, Microsoft Visual Basic for Applications penceresini açar.

2. Ekle > Modül’e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Bir listeden en yaygın değeri bulun

Sub FindFrequency()
'Update 20140326
Dim Rng As Range
Dim WorkRng As Range
Set dic = CreateObject("scripting.dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xMax = 0
xOutValue = ""
For Each Rng In WorkRng
    xValue = Rng.Value
    If xValue <> "" Then
        dic(xValue) = dic(xValue) + 1
        xCount = dic(xValue)
        If xCount > xMax Then
            xMax = xCount
            xOutValue = xValue
        End If
    End If
Next
MsgBox "The most common value is: " & xOutValue & " Appeared " & xMax & " Times"
End Sub

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın; kullanmak istediğiniz aralığı seçmeniz için bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:

4. Ardından TAMAM'a tıklayın; aşağıdaki bilgileri gösteren bir uyarı kutusu alacaksınız: