Ошибки Excel VBA при попытке извлечь адреса электронной почты из списка

Question

При попытке извлечь адреса электронной почты из электронной таблицы, в которой ячейки содержат дополнительную информацию (согласно инструкциям на https://smallbusiness.chron.com/extract-email-addresses-excel-spreadsheet-42777.html), я ввел:

Function ExtractCellEmail(cell As Range) As String

    Dim contents As String contents = cell.Text

    AtPosition = InStr(1, contents, "@")
    AddressStartingPosition = InStrRev(contents, " ", AtPosition)
    AddressEndingPosition = InStr(AtPosition, contents, " ")
    AddressEndingPosition = InStr(AtPosition, contents, " ")
    ActiveCell.Offset(0, 1).Value = emailAddress

End Function

Я получил ошибку сообщение:

«Ожидается: конец оператора»

Для введенной подфункции

Sub Troyextract()
Sub mcrExtractColumnAddresses()

    Do
        Call ExtractEmails(ActiveCell)
        ActiveCell.Offset(1, 0).Select
    Loop Until IsEmpty(ActiveCell)

End Sub

я получил сообщение об ошибке, в котором говорилось

"Ожидаемый конец Sub"

Пожалуйста, помогите.

Трой

Answer 1

Это должен быть VBA? Вы можете сделать это с помощью формулы:

=IF(ISNUMBER(FIND("@",A1)),TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND(" ",A1&" ",FIND("@",A1))-1)," ",REPT(" ",LEN(A1))),LEN(A1))),"")