Извлечение из ячейки только русских букв

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Извлечение из ячейки только русских букв (Формулы)

repa1981

Дата: Среда, 20.11.2013, 17:48 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте. Не подскажете как с помощью формулы выделить из ячейки только русские буквы.
Текст например такой: FLY-FISHING Продеватель с иглой THREADER with BODKIN

Ответить

MCH

Дата: Среда, 20.11.2013, 18:02 | Сообщение № 2

Группа: Админы

Ранг: Старожил

Сообщений: 2004

Репутация: 752 ±

Замечаний: ±

Что делать с пробелами между словами? оставлять?

UDF (с пробелами):
[vba]

Код

Function GetRusText(txt As String) As String
      Dim i As Long, m As String, s As String
      For i = 1 To Len(txt)
          m = Mid$(txt, i, 1)
          If m Like "[ А-Яа-яЁё]" Then s = s & m
      Next i
      GetRusText = WorksheetFunction.Trim(s)
End Function

[/vba]

К сообщению приложен файл: GetRusText.xls (31.5 Kb)

Сообщение отредактировал MCH - Среда, 20.11.2013, 18:04

Ответить

repa1981

Дата: Среда, 20.11.2013, 18:09 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Огромное спасибо! Пробелы оставлять.

Ответить

repa1981

Дата: Среда, 20.11.2013, 18:14 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

И еще не подскажете. Теперь есть 4 ячейки.
В первой находится текст: FLY-FISHING Продеватель с иглой THREADER with BODKIN
Во второй находится текст: FLY-FISHING
В третьей находится: Продеватель с иглой
В четвертой находится: BODKIN

Как сделать 5-ую ячейку, чтобы она в 1-ой ячейке оставляла символы, отсутствующие в 3-х остальных ?