Come trovare il valore più comune (numero o stringa di testo) da un elenco in Excel?

In generale, possiamo applicare la funzione MODA (=MODA(A1:A16)) per trovare il numero più comune in un intervallo. Ma questa funzione MODA non funziona con stringhe di testo. Per estrarre il valore che compare più spesso, puoi applicare la seguente formula matrice. Procedi come segue:

In una cella vuota accanto ai dati, inserisci la formula sottostante e premi contemporaneamente i tasti Maiusc + Ctrl + Invio.

=INDICE($A$1:$A$16;MODA(CONFRONTA($A$1:$A$16;$A$1:$A$16;0)))

La formula è troppo complicata da ricordare? Salva la formula come voce di AutoTesto per riutilizzarla con un solo clic in futuro! Leggi di più…     Prova gratuita

Se hai installato Kutools per Excel, puoi facilmente applicare la sua formula Trova il valore più comune per ottenere rapidamente il valore più frequente da un elenco o colonna in Excel.

Seleziona una cella vuota in cui inserire il valore trovato e fai clic su Kutools > Assistente formula > Assistente formula.

2. Nella finestra di dialogo Assistente formula, scegli Ricerca da Tipo di formula dall'elenco a discesa, fai clic per selezionare Trova il valore più comune nella Seleziona una formula casella di riepilogo, specifica l'elenco/colonna nell' Intervallo box, e fai clic sul pulsante Ok . Vedi screenshot:

E poi vedrai che il valore più comune/frequente è stato trovato e inserito nella cella selezionata. Vedi screenshot:

Con il seguente codice VBA, non solo puoi trovare il valore che compare più spesso, ma anche contare il numero di volte in cui appare la parola più comune.

1. Tieni premuti i tasti ALT + F11 e si aprirà la finestra Microsoft Visual Basic for Applications.

2. Fai clic su Inserisci > Modulo e incolla il seguente codice nella Finestra del Modulo.

Codice VBA: Trova il valore più comune da un elenco

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. Poi premi F5 per eseguire questo codice, e apparirà una finestra di avviso per ricordarti di selezionare l'intervallo che vuoi utilizzare. Vedi screenshot:

4. E poi fai clic OK, riceverai una finestra di avviso che mostra le seguenti informazioni: