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

C помощью пользовательской формулы ТЕКСТИЗСТРОКИ вы сможете извлечь текст из строки игнорируя при этом числовые значения.

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

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

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

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

Пример

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

Пример функции ТЕКСТИЗСТРОКИ

Код на 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
Надстройка
VBA-Excel
Надстройка для Excel содержит большой набор полезных функций, с помощью которых вы значительно сократите время и увеличите скорость работы с программой.

Рекомендуем к прочтению

Комментарии:

comments powered by Disqus