¿Cómo encontrar el valor más común (número o cadena de texto) de una lista en Excel?

Generalmente, podemos aplicar la función MODA (=MODA(A1:A16)) para encontrar el número más común de un rango. Pero esta función MODA no funciona con cadenas de texto. Para extraer el valor que ocurre con más frecuencia, puedes aplicar la siguiente fórmula de matriz. Por favor, haz lo siguiente:

En una celda en blanco junto a los datos, introduce la siguiente fórmula, y presiona las teclas Shift + Ctrl + Enter juntas.

=INDICE($A$1:$A$16,MODA(COINCIDIR($A$1:$A$16,$A$1:$A$16,0)))

¿La fórmula es demasiado complicada de recordar? ¡Guarda la fórmula como una entrada de Autotexto para reutilizarla con un solo clic en el futuro! Leer más…     Prueba gratuita

Si tienes Kutools para Excel instalado, puedes aplicar fácilmente su fórmula Encontrar el valor más común para obtener rápidamente el valor más frecuente de una lista o columna en Excel.

1. Selecciona una celda en blanco donde colocarás el valor encontrado, y haz clic en Kutools > Asistente de fórmulas> Asistente de fórmulas.

2. En el cuadro de diálogo Asistente de fórmulas, selecciona Búsqueda desde el Tipo de fórmula lista desplegable, haz clic para seleccionar Encontrar el valor más común en la Selecciona una fórmula cuadro de lista, especifica la lista/columna en el Rango cuadro, y haz clic en el botón Aceptar . Ver captura de pantalla:

Y luego verás que se ha encontrado y colocado el valor más común/frecuente en la celda seleccionada. Ver captura de pantalla:

Con el siguiente código VBA, no solo puedes encontrar el valor que ocurre con más frecuencia, sino también contar el número de veces que aparece la palabra más común.

1. Mantén presionadas las teclas ALT + F11, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana de Módulo.

Código VBA: Encuentra el valor más común de una lista

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. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que selecciones el rango que deseas usar. Ver captura de pantalla:

4. Y luego haz clic en Aceptar, obtendrás un cuadro de diálogo que muestra la siguiente información: