Как выделить английское слово из ячейки?

[tima1]

Помогите, пожалуйста решить проблему. Есть столбец данных со значениями типа: example пример пример; example1 example2 пример. Таких ячеейк в столбце 100 тыс. Как из этого всего выделить в отдельный столбец значениями на английском языке. Другими словами - Как выделить английские слова? Спасибо. Работаю в excel 2010.

[Скрипт]

Использование команды Like:

Sub Procedure_1()

    Dim sString As String
    
    'Для удобства берём текст из ячейки в переменную.
    'Cstr - переводит тип данных в тип данных "Текст".
    'В ячейке может быть число, а переменная "sString" имеет
    'тип данных "Текст".
    sString = CStr(ActiveCell.Value)

    'Переводим буквы в тексте в нижний регистр (делаем буквы маленькими),
    'чтобы было меньше кода писать.
    sString = LCase(sString)
    
    'Анализируем строку.
    '"*" означает любое количество любых символов.
    '[a-z] - одна английская маленькая буква.
    'Т.е. это выражение "*[a-z]*" означает - одна английская буква
    'окружённая или неокружённая любым количеством любых символов.
    'Если в ячейке есть хоть одна английская буква, то будет
    'считаться, что в ячейке есть английское слово.
    If sString Like "*[a-z]*" Then
        MsgBox "В ячейке есть английская буква!"
    End If

End Sub

[doober]

Читайте коменты,пропишете свои имена и столбцы.
Лист1-пример использования пользовательской функции,
лист2-макросом.

[kuklp]

Кросс:
http://www.planetaexcel.ru/forum/ind...&FID=1&TID=263
http://www.excelworld.ru/forum/2-3166-1

[Казанский]

И еще
http://www.cyberforum.ru/ms-excel/thread749796.html