Как из ячейки содержащей текст и число извлечь только число?

[svsh2016]

добрый вечер,вариант для#30 функция uuu,вытягивает очень много,но не все,с корпусами надо доделать

Function uuu(t$)
 With CreateObject("VBScript.RegExp")): .Pattern = "\d+[А-ЯЁ]?\\?/?-?(\d+)?$"
   If .test(t) Then uuu = .Execute(t)(0) Else uuu = ""
 End With
End Function

[svsh2016]

добавляю файл-пример для#30,функция в столбце C

[Genri12]

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

добавляю файл-пример для#30,функция в столбце C

Спасибо огромное за оперативность ответа и отзывчивость.
Написанный Вами макрос действительно решает вопрос вытягивания номеров домов из столбца. С некоторыми ошибками, но вытягивает (в некоторых строках вытягивает номер корпуса вместо дома).
Задача все же стоит "разложить" исходный столбец данных именно по-полочкам: улицу перенести в столбец улица, дом - в дом, корпус - в корпус.
К сожалению, я пока не настолько грамотен в макросах как Вы, чтобы доработать макрос. Помогите, пожалуйста. Спасибо.

[svsh2016]

добавил для#33,данные у Вас очень разношерстные,итак, в столбце D функция zzz вытягивает корпус
в столбце F новая версия функция yyy вытягивает номер дома,с учетом наличия корпусов
в столбце C старая версия uuu для сравнения
функция uuu1 вытягивает улицу,но ее надо дорабатывать

Function yyy(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\d+[А-ЯЁ]?\\?/?-?(\d+)?(?=,| кор\.| к\.| к |к| к| корп\.| кор | корпус|$)"
   If .test(t) Then yyy = .Execute(t)(0) Else yyy = ""
 End With
End Function

Function uuu(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\d+[А-ЯЁ]?\\?/?-?(\d+)?$"
   If .test(t) Then uuu = .Execute(t)(0) Else uuu = ""
 End With
End Function

Function uuu1(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "(.+)" & uuu(t)
   If .test(t) Then uuu1 = Replace(Replace(Replace(Replace(.Execute(t)(0).Submatches(0), ",", ""), "ул", ""), "дом", ""), "д.", "") Else uuu1 = ""
 End With
End Function

Function zzz(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "(?:к|к\.|корп\.|кор|корпус)\s?(\d+)"
   If .test(t) Then zzz = .Execute(t)(0).Submatches(0) Else zzz = ""
 End With
End Function

[Татьяна сацюк]

помогите есть файл там 35 000 тыс позиций, нужно разделить отдельно код товара и наименование в разные столбцы эксель
напишите сюда или в скайп tatyanasatsiuk

вот пример 000.212.000 Палец передней стойки

[Казанский]

Татьяна сацюк, не подойдет ли Данные - Текст по столбцам - фиксированной ширины?