Логотип

+7 (977) 834-82-00

info@vba-excel.ru

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

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

 

Добавить в Excel!

Установите программу

*Этого функционала нет в стандартном Excel

 Скачали:  26 440 чел.

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

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

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

Пример

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

Пример 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

Установка

Обращаем Ваше внимание, что функционал, описанный в данной статье, ОТСУТСТВУЕТ в Excel.

Чтобы его добавить, необходимо установить надстройку VBA-Excel. Данная программа содержит более сотни функций, которые сделают работу с Excel в разы эффективней. С ней рутинные задачи будут занимать считанные секунды. Программой уже воспользовались 26 440 чел., попробуйте и Вы!


Установите программу

Ссылки по теме

  1. Как заменить текст на латинице русскими буквами в Excel
  2. Извлечь слова на кириллице в Excel
  3. Проверка существования Email в Excel
  4. Проверка наличия русского текста в ячейке Excel

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

comments powered by Disqus