Hoe snel een e-mailadres uit een tekstreeks halen?

Wanneer u enkele e-mailadressen van het Website naar Excel-werkblad importeert, bevat deze altijd irrelevante tekst, maar nu wilt u alleen de pure e-mailadressen uit de tekstreeks extraheren (zie volgende schermafbeeldingen). Hoe kon je snel alleen de e-mailadressen uit de celtekst halen?

Haal het e-mailadres uit de tekstreeks met formule Haal het e-mailadres uit de tekstreeks met de door de gebruiker gedefinieerde functie Extraheer het e-mailadres uit de tekstreeks met VBA-code Extraheer het e-mailadres uit de tekstreeks met Kutools voor Excel

Haal het e-mailadres uit de tekstreeks met formule

Hier introduceer ik je een lange formule om alleen de e-mailadressen uit de tekst in Excel te extraheren. Ga als volgt te werk:

1. Voer deze formule in de aangrenzende cel B1 in = TRIM (RECHTS (SUBSTITUTE (LEFT (A1, FIND ("", A1 & "", FIND ("@", A1)) - 1), "", REPT ("", LEN (A1))), LEN ( A1))).

2. Druk vervolgens op Enter -toets, selecteer vervolgens cel B1 en sleep de vulgreep naar het bereik waarin u deze formule wilt opnemen. En de e-mailadressen in het bereik zijn uit de tekstreeks gehaald. Zie screenshot:

Opmerkingen:

1. De leestekens achter het e-mailadres worden ook geëxtraheerd.

2. Als de cellen de e-mailadressen niet bevatten, geeft de formule foutwaarden weer.

3. Als een cel meer dan één e-mailadres bevat, extraheert de formule alleen het eerste adres.

Haal het e-mailadres uit de tekstreeks met de door de gebruiker gedefinieerde functie

Behalve de bovenstaande formule, kan een door de gebruiker gedefinieerde functie u ook helpen het e-mailadres uit de tekstreeks te halen.

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende macro in het modulevenster.

Function ExtractEmailFun(extractStr As String) As String
'Update by extendoffice
Dim CharList As String
On Error Resume Next
CheckStr = "[A-Za-z0-9._-]"
OutStr = ""
Index = 1
Do While True
    Index1 = VBA.InStr(Index, extractStr, "@")
    getStr = ""
    If Index1 > 0 Then
        For p = Index1 - 1 To 1 Step -1
            If Mid(extractStr, p, 1) Like CheckStr Then
                getStr = Mid(extractStr, p, 1) & getStr
            Else
                Exit For
            End If
        Next
        getStr = getStr & "@"
        For p = Index1 + 1 To Len(extractStr)
            If Mid(extractStr, p, 1) Like CheckStr Then
                getStr = getStr & Mid(extractStr, p, 1)
            Else
                Exit For
            End If
        Next
        Index = Index1 + 1
        If OutStr = "" Then
            OutStr = getStr
        Else
            OutStr = OutStr & Chr(10) & getStr
        End If
    Else
        Exit Do
    End If
Loop
ExtractEmailFun = OutStr
End Function

3. Sla vervolgens de code op en voer de formule in = ExtractEmailFun (A1) zie screenshot in een aangrenzende lege cel:

4. En druk vervolgens op Enter -toets, selecteer de cel B1 en sleep de vulgreep naar het bereik waarvoor u de formule nodig hebt. En alle e-mailadressen zijn uit de celtekst gehaald. Zie screenshot:

Opmerkingen:

1. Als de cellen geen e-mailadressen hebben, worden er lege cellen weergegeven.

2. Als er meer dan één e-mailadres in een cel staat, worden alle e-mails uitgepakt.

Extraheer het e-mailadres uit de tekstreeks met VBA-code

Als u denkt dat bovenstaande formules lastig voor u zijn, kan de volgende VBA-code u helpen de e-mailadressen op één adres te extraheren.

1. Houd de ALT + F11 toetsen, en het opent een Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende macro in het Module venster.

VBA: haal e-mailadressen uit een tekstreeks

Sub ExtractEmail()
'Update 20130829
Dim WorkRng As Range
Dim arr As Variant
Dim CharList As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
CheckStr = "[A-Za-z0-9._-]"
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        extractStr = arr(i, j)
        outStr = ""
        Index = 1
        Do While True
            Index1 = VBA.InStr(Index, extractStr, "@")
            getStr = ""
            If Index1 > 0 Then
                For p = Index1 - 1 To 1 Step -1
                    If Mid(extractStr, p, 1) Like CheckStr Then
                        getStr = Mid(extractStr, p, 1) & getStr
                    Else
                        Exit For
                    End If
                Next
                getStr = getStr & "@"
                For p = Index1 + 1 To Len(extractStr)
                    If Mid(extractStr, p, 1) Like CheckStr Then
                        getStr = getStr & Mid(extractStr, p, 1)
                    Else
                        Exit For
                    End If
                Next
                Index = Index1 + 1
                If outStr = "" Then
                    outStr = getStr
                Else
                    outStr = outStr & Chr(10) & getStr
                End If
            Else
                Exit Do
            End If
        Loop
        arr(i, j) = outStr
    Next
Next
WorkRng.Value = arr
End Sub

3. Druk dan op F5 sleutel om deze code uit te voeren, en je zou een bereik moeten selecteren dat je de VBA wilt gebruiken in het uitgeklapte dialoogvenster, zie screenshot:

4. Dan klikken OK, en de e-mailadressen zijn geëxtraheerd uit de geselecteerde tekstreeksen. Zie screenshots:

Opmerkingen:

1. Als de cellen geen e-mailadressen hebben, worden lege cellen weergegeven.

2. Alle e-mails worden uitgepakt als er meer dan één e-mailadres in een cel staat.

3. De geëxtraheerde e-mails hebben betrekking op de originele gegevens, dus u kunt beter eerst een back-up van de gegevens maken als dat nodig is.

Extraheer het e-mailadres uit de tekstreeks met Kutools voor Excel met één klik

De bovenstaande methoden zien er enigszins ingewikkeld uit voor onze Excel-beginner, hier kan ik u een snelle en gemakkelijke tool aanbevelen- Kutools for Excel, Met Extract e-mailadres hulpprogramma, kunt u de e-mailadressen zonder veel moeite uit de tekstreeksen halen.

Als je hebt geïnstalleerd Kutools for Excelgaat u als volgt te werk:

1. Selecteer de cellen die de tekstreeksen bevatten.

2. Klikken Kutools > Tekst > Extract e-mailadres, zie screenshot:

3. En een Extract e-mailadres dialoogvenster verschijnt, selecteer een cel waarin u het resultaat wilt plaatsen, zie screenshot:

4. Dan klikken OK knop, zijn alle e-mailadressen uit de tekstreeksen gehaald, zie screenshot:

Klik om Kutools voor Excel nu te downloaden en gratis uit te proberen!

Demo: extraheer het e-mailadres uit de tekstreeks met Kutools voor Excel

Gerelateerd artikel:

Hoe domeinen uit meerdere e-mailadressen extraheren in Excel?

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!

Lees verder... Gratis download... Aankoop...