Извлечь текст из строки Excel

Описание функции

Функция =ТЕКСТИЗСТРОКИ(СТРОКА) имеет один аргумент:

• СТРОКА - текст или ссылка на ячейку из которой необходимо извлечь текст игнорируя при этом числовые значения.

Приведу пример использования данной функции

Пример

Извлекаем текст строки пропуская числа.

Код на VBA

Function ТЕКСТИЗСТРОКИ(СТРОКА As String) As String
 
    Dim sSymbol As String * 1, sWord As String
    Dim i As Long
 
    sWord = ""
    sSymbol = ""
 
    For i = 1 To Len(СТРОКА)
        sSymbol = Mid(СТРОКА, i, 1)
        If Not LCase(sSymbol) Like "[0-9]" Then
            If (sSymbol = "," Or sSymbol = "." Or sSymbol = " " Or sSymbol = "'") And i > 1 Then
                If Mid(СТРОКА, i - 1, 1) Like "[0-9]" And Mid(СТРОКА, i + 1, 1) Like "[0-9]" Then sSymbol = ""
            End If
            sWord = sWord & sSymbol
        End If
    Next
    ТЕКСТИЗСТРОКИ = sWord
End Function