Подскажите пожалуйста как вытянуть внутри символов цифры. Вот пример чвспававтрать/353636363636?прпарапрарар Должно остаться 353636363636 или хотя бы /353636363636?
Я решил проблему с помощью 1. Выделить диапазон ячеек для замены 2. Ctrl+H. Найти - "*/", заменить на (оставить поле пустым) 3. Ctrl+H. Найти - "~?*", заменить на (оставить поле пустым)
Как говорят - дешево и сердито, похвально! ps Но надо всегда помнить - есть на форуме Поиск, "Приемы", "Копилка", "PLEX" и пр.пр. - арсенал внушительный, бери - пользуйся...
Function iChislo(cell$) As String
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = True
.Pattern = "\d+(?=\?)"
iChislo = .Execute(cell)(0)
End With
End Function
Igor89,еще вариант функции (UDF)в D1,доступ к тексту функции,как вариант( Вид-Макросы-Изменить)
Код
Function Myfunction(text$)
With CreateObject("VBScript.RegExp"): .Pattern = "\D+": .Global = True
Myfunction = .Replace(text, "")
End With
End Function