Иногда приходится работать со смешанным текстом, в котором часть слов на английском, а часть на русском. Если в таких случаях необходимо извлечь слова на русском, то это можно сделать очень просто с помощью надстройки VBA-Excel. С помощью следующей функции:
Функция =ИЗВЛЕЧЬКИРИЛЛИЦУ(ТЕКСТ) имеет один аргумент
Извлечение перевода английских слов.
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