Als u een proces wilt om u te helpen bij het ophalen van het e-mailadres uit de string, dan is dit artikel iets voor u. In dit artikel zullen we UDF maken om de e-mail-ID uit tekst te halen.
Vraag): De gegevens die ik heb bevatten te veel informatie in tekstformaat. Ik wil een VBA-code om me te helpen zoveel mogelijk e-mail-ID's uit de tekst te extraheren om mijn handmatige inspanningen te minimaliseren.
We moeten de onderstaande stappen volgen:
- Klik op het tabblad Ontwikkelaar
- Selecteer in de codegroep Visual Basic
Voer de volgende code in de standaardmodule in:
Functie ExtractEmailFromText(s As String) As String Dim AtTheRateSignSymbol As Long Dim i As LongDim TempStr As String
Const CharList As String = "[A-Za-z0-9._-]"
AtTheRateSignSymbol = InStr(s, "@")
Als AtTheRateSignSymbol = 0 Dan
ExtractEmailFromText = ""
Anders
TempStr = ""
Voor i = AtTheRateSignSymbol - 1 naar 1 stap -1
Als Mid(s, i, 1) CharList leuk vinden, dan
TempStr = Mid(s, i, 1) & TempStr
Anders
Afsluiten voor
Stop als
volgende i
Als TempStr = "" Functie afsluiten
TempStr = TempStr & "@"
Voor i = AtTheRateSignSymbol + 1 Naar Len(en)
Als Mid(s, i, 1) CharList leuk vinden, dan
TempStr = TempStr & Mid(s, i, 1)
Anders
Afsluiten voor
Stop als
volgende i
Stop als
Als Rechts(TempStr, 1) = "." Dan TempStr = _
Links(TempStr, Len(TempStr) - 1)
ExtractEmailFromText = TempStr
Functie beëindigen
- In cel B2 is de formule
- =ExtractE-mailVanTekst(A2)
We krijgen het resultaat. Zie onderstaande momentopname:
De bovenstaande code extraheert het eerste e-mailadres in het geval er meer dan 1 e-mail-ID in een cel is.
Op deze manier kunnen we e-mail ophalen uit tekst.
Download - E-mailadres uit tekst extraheren - xlsm