Wie findet man den am häufigsten vorkommenden Wert (Zahl oder Textzeichenfolge) aus einer Liste in Excel?

Im Allgemeinen können wir die MODUS-Funktion (=MODUS(A1:A16)) anwenden, um die am häufigsten vorkommende Zahl aus einem Bereich zu finden. Aber diese MODUS-Funktion funktioniert nicht mit Textzeichenfolgen. Um den am häufigsten vorkommenden Wert zu extrahieren, können Sie die folgende Array-Formel anwenden. Bitte gehen Sie wie folgt vor:

Geben Sie in eine leere Zelle neben den Daten die folgende Formel ein und drücken Sie gleichzeitig die Tasten Umschalt + Strg + Eingabetaste.

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

Formel zu kompliziert, um sie sich zu merken? Speichern Sie die Formel als AutoText-Eintrag, um sie in Zukunft mit nur einem Klick wiederzuverwenden! Weiterlesen…     Kostenlose Testversion

Wenn Sie Kutools für Excel installiert haben, können Sie seine Funktion „Den am häufigsten vorkommenden Wert finden“ leicht anwenden, um schnell den am häufigsten vorkommenden Wert aus einer Liste oder Spalte in Excel zu erhalten.

Wählen Sie eine leere Zelle aus, in die Sie den gefundenen Wert einfügen möchten, und klicken Sie auf Kutools > Formelhelfer> Formelhelfer.

2. Wählen Sie im Dialogfeld Formelhelfer Suchen aus der Formeltyp Dropdown-Liste, klicken Sie, um Den am häufigsten vorkommenden Wert finden im Wählen Sie eine Formel Listenfeld aus, geben Sie die Liste/Spalte im Bereich Feld an und klicken Sie auf die OK Schaltfläche. Siehe Screenshot:

Und dann sehen Sie, dass der am häufigsten vorkommende Wert gefunden und in die ausgewählte Zelle eingefügt wurde. Siehe Screenshot:

Mit dem folgenden VBA-Code können Sie nicht nur den am häufigsten vorkommenden Wert finden, sondern auch die Anzahl der Vorkommen des am häufigsten vorkommenden Wortes zählen.

1. Halten Sie die ALT + F11-Tasten gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Den am häufigsten vorkommenden Wert aus einer Liste finden

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

3Drücken Sie dann die F5 Taste, um diesen Code auszuführen, und ein Eingabefenster wird angezeigt, das Sie daran erinnert, den Bereich auszuwählen, den Sie verwenden möchten. Siehe Screenshot:

4Klicken Sie dann auf OK, und Sie erhalten ein Eingabefenster, das die folgenden Informationen anzeigt: