Általában alkalmazhatjuk a MODE funkció (=MODE(A1:A16)) hogy megtalálja a leggyakoribb számot egy tartományból. Ez a MODE funkció azonban nem működik szöveges karakterláncokkal. A leggyakrabban előforduló érték kinyeréséhez alkalmazza a következő tömbképletet. Kérjük, tegye a következőket:

Az adatok mellett egy üres cellába írja be az alábbi képletet, majd nyomja meg az gombot Shift + Ctrl + Enter kulcsokat együtt.

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

A képlet túl bonyolult ahhoz, hogy emlékezzen rá? Mentse el a képletet automatikus szöveges bejegyzésként, és a jövőben csak egy kattintással használhatja újra! Olvass tovább…     Ingyenes próbaverzió

Ha telepítette a Kutools for Excel programot, könnyen alkalmazhatja Keresse meg a legtöbb vesszőértéket képlet a leggyakoribb érték gyors lekéréséhez az Excel listájából vagy oszlopából.

1. Jelöljön ki egy üres cellát, ahová a megtalált értéket helyezi, majd kattintson Kutools > Formula Segítő> Formula Segítő.

2. A Képletsegítő párbeszédpanelen válassza a lehetőséget Lookup tól Képlet típusa legördülő listában kattintson a kiválasztáshoz Keresse meg a leggyakoribb értéket a Válasszon képletet listamezőben adja meg a listát / oszlopot a Választék mezőbe, és kattintson a Ok gomb. Lásd a képernyőképet:

És akkor látni fogja, hogy a leggyakoribb / leggyakoribb értéket megtalálták és elhelyezték a kiválasztott cellában. Lásd a képernyőképet:

A következő VBA-kóddal nemcsak a leggyakrabban előforduló értéket találhatja meg, hanem a leggyakoribb szó számát is megszámolhatja.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: Keresse meg a leggyakoribb értéket egy listából

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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt a használni kívánt tartomány kiválasztására. Lásd a képernyőképet:

4. Kattintson a gombra OK, kap egy prompt mezőt, amely a következő információkat jeleníti meg: