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