Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
выцепить слово содержащее @
 
#1
31.05.2014 14:27:26
Подскажите формулу чтобы копировать слово которое содержит определенный текст. Т.е. то что содержит "@"
atapex@mail.ru   +7-921-935-20-96, SKYPE: vladis.kuleshov
atapex@mail.ru
 
 
 
#2
31.05.2014 14:43:09
Всегда первое? Покажите возможные варианты. В файле.
 
 
 
#3
31.05.2014 14:45:11
Нет может где угодно в ячейке. Просто есть огромный список контактов. И мне нужна формула которая ищет слово которое содержит "@"
 
 
 
#4
31.05.2014 14:53:11
А, может, надо просто вывести на лист список неповторяющихся адресов электронной почты?
http://excelvba.ru/code/EmailList
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
31.05.2014 14:56:58
Не. Емэйлам соответствуют ФИО и т.д. Кажется я нашел что-то по теме здесь: http://excel-training.ru/kak-vyitashhit-chislo-ili-chast-teksta-iz/
 
 
 
#6
31.05.2014 15:05:20
Пока не получается. Я сейчас буду уходить. Если ктото напишет формулу буду благодарен.
 
 
 
#7
31.05.2014 21:05:05
Подозреваю что всёж нужно это:

Код
Function em(s As String)'http://www.regular-expressions.info/regexbuddy/email.html
    Dim v
    With CreateObject("vbscript.regexp")
        .Pattern =  "[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}"
        .Global = True
        .IgnoreCase = True
        Set v = .Execute(s)
    End With
    em = v(0).Value
End Function
Изменено: Hugo - 31.05.2014 21:59:40
 
 
 
#8
31.05.2014 21:42:10
Вставил то что вы написали. Не запускается макрос. Я не оч разбираюсь тут вроде sub или что вначале надо дописать чтоб запустился?
Изменено: BobbyJo - 31.05.2014 21:51:31
 
 
 
#9
31.05.2014 21:58:45
Вот почему мне не хочется показывать как надо делать в файле? А потому что файла то и нет!
Бобби, Вы тут уже почти сотню постов написали - неужели ни разу не пользовались функцией пользователя (UDF)?
Чуть сократил код - выкинул лишнее.
Изменено: Hugo - 31.05.2014 22:00:25
 
 
 
#10
31.05.2014 22:43:34
Спасибо. Я не оч разбираюсь. Обычно просто через F11 вставляю макрос и потом запускаю
 
 
 
#11
01.06.2014 01:07:03
Вы в "Приемах" хоть раз были? Почитайте ЭТУ статью. То, что Вам нужно, находится под заголовком "Создание пользовательских функций на VBA"
 
 
 
#12
01.06.2014 01:40:00
Надо же день чем-то полезным завершить?  :)
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(" "&A1;" ";ПОВТОР(" ";50));ПОИСК("@";ПОДСТАВИТЬ(" "&A1;" ";ПОВТОР(" ";50)))-50;100))
 
 
 
Страницы: 1
Читают тему
Наверх