Страницы: 1
RSS
Необходимо отделить имена от мэйлов
 
Как можно "очистить" значение ячейки от ненужных данных?
Если брать мэйл как "слово" с обязательным значением @, но это не совсем слово. Нет единого значения начала и окончания фразы..
Зато есть разделение пробелом Имя Фамилия имя@mail.ru
Я уже много чего сделала благодаря Вам, но эта задача выше моего понимания))
 
как то так. первый раз делал
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A1;" ";ПОВТОР(" ";100));НАЙТИ("@";ПОДСТАВИТЬ(A1;" ";ПОВТОР(" ";100)))-50;100))
 
Работает! Спасибоооо!
 
UDF
Код
Function Email(iCell As String)
    With CreateObject("vbscript.regexp")
        .Pattern = "[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}"
        .Global = True
        .IgnoreCase = True
        If .test(iCell) Then
          Email = .Execute(iCell)(0).Value
        Else
          Email = "Нет в строке электронного адреса"
        End If
    End With
End Function
 
sefora, исходя из примера, то вам нужно последнее слова
=TRIM(RIGHT(SUBSTITUTE(TRIM(A1);" ";REPT(" ";99));99))
По вопросам из тем форума, личку не читаю.
 
ещё вариант UDF
 
Код
Function bbb$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\w+@\w+\.\w+"
  bbb = .Execute(t)(0)
 End With
End Function
Изменено: кузя1972 - 05.11.2018 01:31:37
Страницы: 1
Наверх