Как вытащить адрес из содержимого ячейки

[Sensi]

Всем здравствуйте!
как можно вытащить из ячейки адрес электронной почты? мне такую задачу похоже не осилить((( наверное же можно как то по знаку @ вытащить,
спасибо

[doober]

функцию в модуль.
Применение
Предполагаем,что мыло надо взять с ячейки B9
=Email(B9) например в ячейку C9 вставляем формулу

Function Email(s) As String
    bRes = False
    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.Global = False
    RegExp.IgnoreCase = True
    RegExp.Pattern = "\b[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}\b"
    bRes = RegExp.test(s)
    If bRes Then
        Set oMatches = RegExp.Execute(s)
        Set oMatch = oMatches(0)
        Email = oMatch
        Exit Function
    End If
End Function

[Sensi]

создал модуль, скопировал код. не работает. =Email(B9) и ИМЯ опять показывает.((

[doober]

файл на базу

[Sensi]

https://dl.dropbox.com/u/46465441/%D...%20makros.xlsm

[doober]

Нельзя называть модуль именем процедуры

[Sensi]

Это было прекрааасно. Спасибо!

[Sensi]

только беда в том еще оказалась, что в некоторых ячейках много почт...

[doober]

Замените функцию

Function Email(s) As String
    Dim sl As String
    bRes = False
    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.Global = True
    RegExp.IgnoreCase = True
    RegExp.Pattern = "\b[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}\b"
    bRes = RegExp.test(s)
    If bRes Then
        Set oMatches = RegExp.Execute(s)
        For Each oMatch In oMatches
            
            sl = sl & oMatch & ";"
        Next
    End If
    Email = sl
    
End Function