Макрос выборки

[cfkhellboy1992]

Удалить с таблички АдресДоставкиИзСайта всё кроме названия улицы.

[cfkhellboy1992]

Есть такой код.Он выделяет по заданному слову.а нужно по множеству слов или фраз. типо Донецька ,Героїв Сталінграда и т.д

Sub Del_SubStr()
Dim sSubStr As String 'искомое слово или фраза(может быть указанием на ячейку)
Dim lCol As Long 'номер столбца с просматриваемыми значениями
Dim lLastRow As Long, li As Long
Dim lMet As Long

sSubStr = InputBox("Укажите значение, которое необходимо найти в строке", "Запрос параметра", "")
If sSubStr = "" Then lMet = 0 Else lMet = 1
lCol = Val(InputBox("Укажите номер столбца, в котором искать указанное значение", "Запрос параметра", 1))
If lCol = 0 Then Exit Sub

lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count

Application.ScreenUpdating = 0
For li = lLastRow To 1 Step -1
If -(InStr(Cells(li, lCol), sSubStr) > 0) <> lMet Then Rows(li).Delete
Next li
Application.ScreenUpdating = 1
End Sub

[IgorGO]

судя по адресам - это Киев)

у удалять надо все от начала до вул. или просп.
а в конце начиная с д. до конца строки

так?

[cfkhellboy1992]

да.Киев.Нужно оставить только названия улиц.
, вул. Донецька д.35 кв.45
02175, вул. Ахматової Анни д.35 а кв.222
Склад №23, просп. М. Бажана д.24/1 кв.
03061, просп. Відрадний д.22-б кв.45
Склад №77, просп. Героїв Сталінграду д.55 кв.

а должно стать
Донецька
Ахматової Анни
Бажана
Відрадний
Героїв Сталінграду.

[cfkhellboy1992]

Вообще задача состоит в том чтобы разделить эти улицы по районам.но я хз как это сделать.скачал справочник загнал в эксель.
думаю хотябы выделить улицы с него и потом как то вертеть

[cac2s]

Сообщение от IgorGO

судя по адресам - это Киев)

у удалять надо все от начала до вул. или просп.
а в конце начиная с д. до конца строки

так?

бегло проглядев файл - тайм еще "бул.", "бульвар", "пров." и т.д.
не удивлюсь, если всплывут и другие наименования...

Upd.: Так и есть - B441 - полное написание "улица"... Очень много вариаций придётся в проверку загонять...

[cfkhellboy1992]

плексом смог удалить.только не уверен что всё корректно удалил

[Hugo121]

Сперва по всему диапазону меняем все " вул." и " д." и остальные возможные сокращения на например "|", затем получаем split(строка, "|")(1)
А что, есть просп. Героїв Сталінграду? Не переименовали ещё?

P.S. Склад №80, Харківське шосе д.150/15 кв. всю малину портит...

[cfkhellboy1992]

Сообщение от Hugo121

Сперва по всему диапазону меняем все " вул." и " д." и остальные возможные сокращения на например "|", затем получаем split(строка, "|")(1)
А что, есть просп. Героїв Сталінграду? Не переименовали ещё?

нет,не переименовали

[Hugo121]

У нас давно даже космонавтов на дудаева поменяли... Ну с Лениным/Марксом/Энгельсом понятно что случилось...
Героев Сталинграда не было никогда.
Пушкин и Тургенев держатся