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

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

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

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

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

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

comments powered by Disqus