Логотип

+7 (977) 834-82-00

info@vba-excel.ru

Как извлечь русские слова из ячейки Excel

Формула ИЗВЛЕЧЬКИРИЛЛИЦУ из надстройки поможет удалить латинский текст и извлечь русские слова на кириллице.

 

Добавить в Excel!

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

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

 Скачали:  24 765 чел.

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

Иногда приходится работать со смешанным текстом, в котором часть слов на английском, а часть на русском. Если в таких случаях необходимо извлечь слова на русском, то это можно сделать очень просто с помощью надстройки VBA-Excel. С помощью следующей функции:

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

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

Пример

Извлечение перевода английских слов.

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

Код на VBA

Function ИЗВЛЕЧЬКИРИЛЛИЦУ(ByVal ТЕКСТ As String) As String
    Dim i As Long
    Dim SimbolKirill
    Dim splt
    Dim temptext As String
    Dim Result As String
 
    SimbolKirill = "*[абвгдеёжзийклмнопрстуфхцчшщьыъэюя]*"
    Result = ""
    splt = Split(ТЕКСТ, " ")
 
    For i = 0 To UBound(splt)
        temptext = LCase(splt(i))
        If temptext Like SimbolKirill Then
            Result = Result & " " & splt(i)
        End If
    Next
 
    ИЗВЛЕЧЬКИРИЛЛИЦУ = Trim(Result)
End Function

Установка

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

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


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

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

  1. Функция транслитерации в Excel
  2. Проверка наличия русского текста в ячейке Excel
  3. Содержит ли ячейка Excel латиницу?
  4. Как извлечь слова на латинице из ячейки

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

comments powered by Disqus