Private Function GetHash(ByVal txt$) As String 'MD5
    Dim oUTF8, oMD5, abyt, i&, k&, hi&, lo&, chHi$, chLo$
    Set oUTF8 = CreateObject("System.Text.UTF8Encoding")
    Set oMD5 = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
    abyt = oMD5.ComputeHash_2(oUTF8.GetBytes_4(txt$))
    For i = 1 To LenB(abyt)
        k = AscB(MidB(abyt, i, 1))
        lo = k Mod 16: hi = (k - lo) / 16
        If hi > 9 Then chHi = Chr(Asc("a") + hi - 10) Else chHi = Chr(Asc("0") + hi)
        If lo > 9 Then chLo = Chr(Asc("a") + lo - 10) Else chLo = Chr(Asc("0") + lo)
        GetHash = GetHash & chHi & chLo
    Next
    Set oUTF8 = Nothing: Set oMD5 = Nothing
End Function

х = GetHash(строка$)

Function ВЫВОД_УНИКАЛЬНЫХ(Диапазон As Range, Номер_результата As Integer)
'возвращает N-ное из уникальных значений в указанном диапазоне
    Dim iArr, arr(): arr = Intersect(Диапазон, Диапазон.Parent.UsedRange.Cells.SpecialCells(xlCellTypeVisible)).Value
    With CreateObject("Scripting.Dictionary")
        .comparemode = vbTextCompare   ' Создаем словарь
        For Each iArr In arr
            If Trim(iArr) <> "" Then iArr = .Item(Trim(iArr))   'попытка чтения значения по отсутствующему ключу добавит ключ в словарь ( см., например, http://program.rin.ru/cgi-bin/print.pl?id=120#17 )
        Next
        arr = .Keys   ' массив ключей копируем в массив (напрямую читать из .Keys не получается, т.к. словарь определён не явно)
        If Номер_результата >= 1 And Номер_результата <= .Count Then
            ВЫВОД_УНИКАЛЬНЫХ = arr(Номер_результата - 1)
        Else
            ВЫВОД_УНИКАЛЬНЫХ = CVErr(xlErrNA)
        End If
    End With
End Function

MultiSelect:=False)