Function AnatolyZhilichev(r As Range, razd As String, numstr As Boolean)
        Dim el, t
        With CreateObject("Scripting.Dictionary"): .comparemode = 1
            For Each el In r.Value
                If Len(Trim(el)) Then
                    t = Analiz(CStr(el), numstr)
                    If Len(t) Then .Item(t) = 0&
                End If
            Next
            AnatolyZhilichev = Join(.keys, razd)
        End With
End Function

Function Analiz(s$, Num As Boolean)
'Предлагаемая функция работает с любым символом разделения (а также, без него), не зависит от количества символов и не имеет никаких циклов.
'Функция имеет 2 аргумента. 1-й - строка или ячейка с исходными данными, 2-й - True для цифр, или False для букв.
        On Error Resume Next
        Dim Patt As String, objRegExp: Set objRegExp = CreateObject("VBScript.RegExp")
        objRegExp.Pattern = IIf(Num, "[\d]{1,100}", "[А-Яа-яЁёA-Za-z ]{1,100}"): objRegExp.Global = True
        Analiz = objRegExp.Execute(s).Item(0)
        On Error GoTo 0
End Function

=AnatolyZhilichev(G3:G28,"/",0)

=AnatolyZhilichev(G12:G28,"/",1)

='1040818H.xls'!AnatolyZhilichev(O$13:O$21,"/",1)