Страницы: 1
RSS
Удалить все символы с артикулом и тире
 
Здравствуйте.

В столбце А есть УРЛ товаров с артикулом на конце, вот так:
krasniy-zaichik-v-shube-f-46
detskiy-mishka-f-469
detskiy-mishka-beliy-cvet-f-1025

Нужно справа налево удалить все символы артикула и тире перед артикулом, чтобы стало:
krasniy-zaichik-v-shube
detskiy-mishka
detskiy-mishka-beliy-cvet

Вот так:


Проблема в том, что акртикулы разной длины, но все начинаются на букву "f". Может как-то формулой можно. Заранее благодарен за помощь.
 
Добрый день!
=ПСТР(A2;1;ПОИСК("-f-";A2)-1)
Изменено: Anton555 - 01.12.2018 13:17:45
 
Огромное спасибо за помощь.  
 
Код
Public Function f(s As String) As String
f = Split(s, "-f-")(0)
End Function
 
Код
Function aa$(t$)
    With CreateObject("vbscript.regexp"): .Pattern = ".+(?=-f-)": aa = .Execute(t)(0)
    End With
End Function

Function bbb$(t$)
    With CreateObject("vbscript.regexp"): .Pattern = "-f-.+": bbb = .Replace(t, "")
    End With
End Function

Function ccc$(t$)
    With CreateObject("vbscript.regexp"): .Pattern = "-": .Global = True
    ccc = Left(t, .Execute(t)(.Execute(t).Count - 2).FirstIndex)
    End With
End Function

Изменено: кузя1972 - 02.12.2018 00:08:03
Страницы: 1
Наверх