Excel'de bir listeden en yaygın değeri (sayı veya metin dizisi) nasıl bulurum?

Genel olarak, en yaygın sayıyı bir aralıktan bulmak için MODE fonksiyonunu (=MODE(A1:A16)) uygulayabiliriz. Ancak bu MODE fonksiyonu metin dizeleriyle çalışmaz. En çok görülen değeri çıkarmak için aşağıdaki dizi formülünü uygulayabilirsiniz. Lütfen şu adımları izleyin:

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

=İNDEX($A$1:$A$16;MODE(EŞLEŞ($A$1:$A$16;$A$1:$A$16;0)))

Formülü hatırlamak çok mu karmaşık? Formülü, gelecekte tek tıklamayla yeniden kullanmak üzere Bir Auto Text girdisi olarak kaydedin! Daha fazla oku…     Ücretsiz deneme

Eğer Excel için Kutools'u yüklediyseniz, en sık görülen değeri bulmak için Find most comma value formülünü kolayca uygulayarak bir listeden veya sütundan en sık görülen değeri hızlıca alabilirsiniz.

1. Bulunan değeri yerleştireceğiniz boş bir hücre seçin ve Kutools > Formula Helper > Formula Helper'a tıklayın.

2. Formula Helper iletişim kutusunda, seçin Arama seçeneklerinden Formül Türü açılır listeden, tıklayın ve seçin En sık görülen değeri bul içindeki Bir formül seçin listesi kutusunda, liste/sütunu belirtin Aralık kutusunda, ve Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Ve sonra en yaygın/en sık görülen değerin bulunduğunu ve seçilen hücreye yerleştirildiğini göreceksiniz. Ekran görüntüsüne bakın:

Aşağıdaki VBA kodu ile yalnızca en sık görülen değeri bulamazsınız, aynı zamanda en yaygın kelime için kaç kez sayıldığını da sayabilirsiniz.

1. ALT + F11 tuşlarını basılı tutun ve Microsoft Visual Basic for Applications penceresi açılacaktır.

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

VBA kodu: Bir listedeki en yaygın değeri bulma

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. Sonra F5 tuşuna basarak bu kodu çalıştırın ve kullanmak istediğiniz aralığı seçmenizi hatırlatan bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:

4. Ve sonra Tamam'a tıklayın, aşağıdaki bilgileri gösteren bir uyarı kutusu alacaksınız: