Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
удалить e-mail c ячейки, Подскажите как удалить с ячейками с несколькими мейлами ненужый мейл (в принципе любой) и оставить только один e-mail
 
Подскажите как удалить с ячейки с несколькими мейлами ненужый мейл (в принципе любой) и оставить только один e-mail
 
Выделяете любой e-mail, удаляете.

На какой ответ Вы надеялись при такой постановке вопроса, без файла примера?
 
в ячейке несколько мейлов, оставить нужно один любой
 
Первый:
=ЛЕВБ(A1;ПОИСК(",";A1&",")-1)
 
вариант макроса с результатом в столбце A,кнопки test и повтор,функция vvv в столбце F
Код
Sub test()
     Dim z, t$, i&: z = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
  With CreateObject("VBScript.RegExp"): .Pattern = "[^,]+"
    For i = 1 To UBound(z): t = z(i, 1)
      z(i, 1) = .Execute(t)(0)
    Next
   Range("A1").Resize(UBound(z), 1).Value = z
   End With
End Sub
Изменено: sv2013 - 19 Май 2017 18:48:09
Страницы: 1
Читают тему (гостей: 1)