Jak najít nejběžnější hodnotu (číslo nebo textový řetězec) ze seznamu v aplikaci Excel?

Obecně můžeme použít MODE funkce (=MODE(A1:A16)) najít nejběžnější číslo z rozsahu. Ale tato funkce MODE nefunguje s textovými řetězci. Chcete-li extrahovat nejčastěji se vyskytující hodnotu, můžete použít následující maticový vzorec. Postupujte prosím takto:

Do prázdné buňky kromě údajů zadejte pod vzorec a stiskněte Shift + Ctrl + Enter klíče dohromady.

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

Vzorec je příliš komplikovaný na to, abyste si ho pamatovali? Uložte vzorec jako položku automatického textu pro opakované použití jediným kliknutím v budoucnu! Přečtěte si více ...     Zkušební verze zdarma

Pokud máte nainstalovaný program Kutools pro Excel, můžete jej snadno použít Najděte největší hodnotu čárky vzorec pro rychlé získání nejčastější hodnoty ze seznamu nebo sloupce v aplikaci Excel.

1. Vyberte prázdnou buňku, do které umístíte nalezenou hodnotu, a klikněte Kutools > Pomocník vzorců> Pomocník vzorců.

2. V dialogovém okně Pomocník pro vzorce vyberte Vyhledávání z Typ vzorce v rozevíracím seznamu vyberte Najděte nejběžnější hodnotu v Vyberte vzorec seznamu, zadejte seznam / sloupec v seznamu Rozsah a klepněte na tlačítko Ok knoflík. Viz screenshot:

A pak uvidíte, že nejběžnější / nejčastější hodnota byla nalezena a umístěna do vybrané buňky. Viz screenshot:

S následujícím kódem VBA můžete nejen najít nejběžnější hodnotu, ale také spočítat počet opakování nejběžnějšího slova.

1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Najděte nejběžnější hodnotu ze seznamu

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. Pak stiskněte tlačítko F5 Chcete-li spustit tento kód, zobrazí se okno s výzvou, které vám připomene, abyste vybrali rozsah, který chcete použít. Viz snímek obrazovky:

4. A pak klikněte na tlačítko OK, zobrazí se výzva, která zobrazuje následující informace: