Hoe zoek je de meest voorkomende waarde (getal of tekstreeks) in een lijst in Excel?

Over het algemeen kunnen we de MODUS-functie (=MODUS(A1:A16)) gebruiken om het meest voorkomende getal in een bereik te vinden. Deze MODUS-functie werkt echter niet met tekstreeksen. Om de meest voorkomende waarde te extraheren, past u de volgende matrixformule toe. Volg deze stappen:

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

=INDEX($A$1:$A$16;MODUS(VERGELIJKEN($A$1:$A$16;$A$1:$A$16;0)))

Formule te ingewikkeld om te onthouden? Sla de formule op als een automatische tekstvermelding en hergebruik deze in de toekomst met slechts één klik! Lees meer…     Gratis proefversie

Als u Kutools voor Excel hebt geïnstalleerd, kunt u eenvoudig de bijbehorende Meest voorkomende waarde zoeken-formule gebruiken om in een handomdraai de meest frequente waarde uit een lijst of kolom in Excel te vinden.

1. Selecteer een lege cel waarin u de gevonden waarde wilt plaatsen en klik op Kutools > Formulehulp > Formulehulp.

2. In het dialoogvenster Formulehulp kiest u Opzoeken in de Formuletype-keuzelijst, klikt u op Zoek de meest voorkomende waarde in het Selecteer een formule-lijstvak, geeft u de lijst of kolom op in het Bereik-vak en klikt u op de knop OK. Zie schermafbeelding:

Vervolgens ziet u dat de meest voorkomende waarde is gevonden en in de geselecteerde cel is geplaatst. Zie de schermafbeelding:

Met de volgende VBA-code vindt u niet alleen de meest voorkomende waarde, maar telt u ook hoe vaak dat woord voorkomt.

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

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

VBA-code: Vind 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

3. Druk vervolgens op de toets F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd het gewenste bereik te selecteren. Zie schermafbeelding:

4. Klik daarna op OK, waarna het volgende dialoogvenster verschijnt: