=ОБЪЕДИНИТЬ("";1;ПОИСК(ПСТР(B1;ПОСЛЕД(ДЛСТР(B1));1);"абвгдеёжзийклмнопрстуфхцчшщъыьэюя"))

Function ConvertToNumericChars(rng As Range) As String
    Dim str As String
    Dim i As Long
    Dim j As Long
    Dim result As String
    Dim validChars As String
    validChars = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"

    ' Проходим по каждому символу в переданном диапазоне
    For i = 1 To Len(rng.Value)
        str = Mid(rng.Value, i, 1)
        ' Проверяем каждый символ на наличие в строке validChars
        For j = 1 To Len(validChars)
            If str = Mid(validChars, j, 1) Then
                ' Если найден соответствующий символ, добавляем его порядковый номер к результату
                result = result & j & "" 
                Exit For
            End If
        Next j
    Next i
    
    ' Удаляем последний пробел, если он есть
    If Right(result, 1) = " " Then
        result = Left(result, Len(result) - 1)
    End If
    
    ConvertToNumericChars = result
End Function