Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как удалить все что до символа "@"
 
Здравствуйте. Подскажите пожалуйста. Есть у меня база емейл адресов, одна строка - один адрес. Как можно "заставить" excel удалить все, что перед знаком "@", чтоб адреса "123@mail.ru" стали текстом "@mail.ru". ?
 
ПСТР() и ПОИСК()

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Так можно:
=ПСТР(E1;НАЙТИ("@";E1);ДЛСТР(E1)-НАЙТИ("@";E1)+1)
Адрес в ячейке Е1.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
Ничего себе скорость ответов  8-0. Спасибо большое. Сейчас буду пробовать
 
ctrl+h - найти *@ заменить на @.
Я сам - дурнее всякого примера! ...
 
Цитата
kuklp написал:на @
у меня так не вышло - неверная функция,
а на '@ получилось
 
добрый вечер,вариант функций uuu в C1 и vvv в E1
 
Код
Function uuu$(t$)
  uuu = "@" & Split(t, "@")(1)
End Function
Код
Function vvv$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "^(.+)(@.+)$"
    vvv = .Replace(t, "$2")
 End With
End Function
Изменено: sv2013 - 26 Фев 2017 20:41:14
 
Цитата
kuklp написал:
ctrl+h - найти *@ заменить на @.
Большое спасибо. Работы оказалось аж секунды 3.  
Страницы: 1
Читают тему (гостей: 1)