Hallar el valor menos repetido en Excel ya sea este un número, texto o alfanumérico
La función UDF (User-Defined Function) llamada "IB·INFRECUENTE" es una función desarrollada en Visual Basic for Applications (VBA) para ser utilizada en Microsoft Excel para encontrar el valor menos frecuente en un rango de celdas especificado, el valor puede ser numérico, texto o alfanumérico. Si hay varios valores con la misma frecuencia mínima, la función IB·INFRECUENTE devolverá todos los valores empatados separados por punto y coma (;) en caso de empate.
Sintaxis:
La sintaxis de la función "IB·INFRECUENTE" es la siguiente:
= IB·INFRECUENTE (Rango)
Parámetros:
La función tiene un parámetro:
Rango (obligatorio): Representa el rango de celdas en el que se desea encontrar el valor menos frecuente.
Código:
Function IB·INFRECUENTE(Rango As Range) As Variant
Dim v As Object, c As Range, l As Variant, m As Long, n As String
Set v = CreateObject("Scripting.Dictionary")
For Each c In Rango
l = c.Value
If Not IsEmpty(l) Then
If v.Exists(l) Then
v(l) = v(l) + 1
Else
v.Add l, 1
End If
End If
Next c
m = Application.WorksheetFunction.Min(v.Items)
For Each l In v
If v(l) = m Then
If n = "" Then
n = l
Else
n = n & ";" & l
End If
End If
Next l
IB·INFRECUENTE = n
End Function
Comentarios
Publicar un comentario