La función eXl_MODA es una función desarrollada en Visual Basic for Applications (VBA) para ser utilizada en Microsoft Excel para encontrar la moda (valor más frecuente) en un rango de celdas especificado, el valor puede ser numérico, texto o alfanumérico, a diferencia de la función MODA que solo admite valores numéricos. Si hay varios valores con la misma frecuencia máxima, la función eXl_MODA devolverá todos los valores empatados separados por punto y coma (;) en caso de empate.
La sintaxis de la función eXl_MODA es:
eXl_MODA (Rango)
donde
Rango (obligatorio): Representa el rango de celdas en el que se desea encontrar la moda.
Código:
Function eXl_MODA (Rango As Range) As Variant
Dim x As Object, y As Range, z As Long, m As Variant, n As String
Set x = CreateObject("Scripting.Dictionary")
For Each y In Rango
If Not IsEmpty(y.Value) Then
If Not x.Exists(y.Value) Then
x.Add y.Value, 1
Else
x(y.Value) = x(y.Value) + 1
End If
If x(y.Value) > z Then
z = x(y.Value)
m = y.Value
n = y.Value
ElseIf x(y.Value) = z Then
n = n & ";" & y.Value
End If
End If
Next y
If Len(n) > 0 Then
eXl_MODA = n
Else
eXl_MODA = m
End If
End Function
👉 Como hacer que la UDF (User Defined Functions) esté disponible como una Función Nativa de Excel
⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.
