Отделить номер дома от названия улицы.

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

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

Отделить номер дома от названия улицы. (Формулы)

SkyPro

Дата: Среда, 19.02.2014, 14:40 | Сообщение № 1

Группа: Друзья

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

Сообщений: 1206

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

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

2010

Добрый день, уважаемые.
Голова сейчас не соображает, всю ночь не спал в связи с событиями у нас, а работу нужно сделать. Прошу вашей помощи.
Имеется текст:
[vba]

Код

5 Декабря32
Абразивная46
Береговая32А
Винницкая4
Первой Пятилетки10А

[/vba]

и так далее..
Необходимо отделить номер дома от остального пробелом.
Получить вот такой результат:
[vba]

Код

5 Декабря 32
Абразивная 46
Береговая 32А
Винницкая 4
Первой Пятилетки 10А

[/vba]
Буду благодарен за любую помощь.

skypro1111@gmail.com

Ответить

AlexM

Дата: Среда, 19.02.2014, 15:11 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

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

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

Excel 2003

Функция пользователя[vba]

Код

Function SkyPro(iStr As String) As String
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = "(\d+[А-ЯЁ]?)$"
Set objMatches = objRegExp.Execute(iStr)
For i = 0 To objMatches.Count - 1
Set objMatch = objMatches.Item(i)
SkyPro = objRegExp.Replace(iStr, " " & objMatch.Value)
Next
End Function

[/vba]

Что-то не то получилось. Подумаю еще.
Исправил и файл заменил.