Страницы: 1
RSS
Извлечение нужного текста между двумя переменными
 
Доброго вечера. Помогите, плиз
Нужен макрос.  Уже ечть отмеченные ячейки методом Select определенные ячейки.
В отмеченных Select ячейках есть ссылки на страницы сайта.
Нужно вытащить только домен со всем содержимым перед первым слэшем
Подробнее в файле.
 
Без макроса
 
Спасибо, Микки!.
Нужный результат!
 
Я просто макросы не умею ..формулами приходится)))
 
В моем случае при select они не сильно и отличаются.
Макрос допишу сам.
Спасибо.  
 
Код
Function qq(s)
    qq = Left(s, InStr(Replace(s, "//", ".."), "/"))
End Function
 
еще вариант функции uuu в столбце D
 
Код
Function uuu(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "http://[^/]+"
    uuu = .Execute(t)(0) & "/"
 End With
End Function
Изменено: sv2013 - 21.07.2016 21:07:54
 
вариант функции без регулярок в столбце F
Код
Function uuu1$(t$)
  uuu1 = "http://" & Split(Split(t, "//")(1), "/")(0) & "/"
End Function
Изменено: sv2013 - 21.07.2016 23:02:48
 
Без макросов, без формул.
Выделить столбец, Ctrl+H
Найти *//
Заменить (ничего не пишем)
Найти */
Опять замена. Все.
Страницы: 1
Наверх