Hoe vind je de meest voorkomende waarde (getal of tekststring) uit een lijst in Excel?

Over het algemeen kunnen we de MODUS functie (=MODE(A1:A16)) toepassen om het meest voorkomende getal uit een bereik te vinden. Maar deze MODUS-functie werkt niet met tekststrings. Om de meest voorkomende waarde te extraheren, kun je de volgende matrixformule toepassen. Doe dit als volgt:

Voer in een lege cel naast de gegevens onderstaande formule in en druk tegelijk op Shift + Ctrl + Enter.

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

Formule te ingewikkeld om te onthouden? Sla de formule op als een AutoTekst-item om in de toekomst met slechts één klik te hergebruiken! Lees meer…     Gratis proefversie

Als je Kutools voor Excel hebt geïnstalleerd, kun je eenvoudig de functie 'Find most common value' gebruiken om snel de meest voorkomende waarde uit een lijst of kolom in Excel te krijgen.

Selecteer een lege cel waarin je de gevonden waarde wilt plaatsen en klik op Kutools > Formula Helper > Formula Helper.

2. In het dialoogvenster Formula Helper, kies Zoeken uit de Formuletype keuzelijst, klik om te selecteren Find most common value in de Kies een formule lijstvak, specificeer de lijst/kolom in het Bereik vak, en klik op de Ok knop. Zie screenshot:

En dan zie je dat de meest voorkomende/frequente waarde is gevonden en in de geselecteerde cel geplaatst. Zie screenshot:

Met de volgende VBA-code kun je niet alleen de meest voorkomende waarde vinden, maar ook het aantal keren tellen voor het meest voorkomende woord.

1. Druk tegelijk op de toetsen ALT + F11, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.

VBA-code: Zoek de meest voorkomende waarde uit een lijst

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

3Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een pop-upvenster dat je eraan herinnert om het bereik te selecteren dat je wilt gebruiken. Zie screenshot:

4Klik vervolgens op OK, dan krijg je een pop-upvenster dat de volgende informatie weergeeft: