Как извлечь слова на латинице из ячейки

Функция ИЗВЛЕЧЬЛАТИНИЦУ поможет вернуть английские слова из заданной ячейки или лекста

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

Функция =ИЗВЛЕЧЬЛАТИНИЦУ(ТЕКСТ) имеет один аргумент:

  • ТЕКСТ - строка или ссылка на ячейку, из которой необходимо извлечь слова на латинице.

Пример

С помощью данной функции можно, к примеру, вытащить из объявлений о продаже автомобилей их марки и модели. 

Пример 1 функции ИЗВЛЕЧЬЛАТИНИЦУ

Код на VBA

Function ИЗВЛЕЧЬЛАТИНИЦУ(ТЕКСТ As String) As String

    Dim i As Long
    Dim SimbolLatin
    Dim splt
    Dim temptext As String
    Dim Result As String

    SimbolLatin = "*[abcdefghijklmnopqrstuvwxyz]*"
    Result = ""
    splt = Split(ТЕКСТ, " ")

    For i = 0 To UBound(splt)
        temptext = LCase(splt(i))
        If temptext Like SimbolLatin Then
            Result = Result & " " & splt(i)
        End If
    Next

    ИЗВЛЕЧЬЛАТИНИЦУ = Trim(Result)
End Function
Надстройка
VBA-Excel
Надстройка для Excel содержит большой набор полезных функций, с помощью которых вы значительно сократите время и увеличите скорость работы с программой.

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

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

comments powered by Disqus