Preskoči na glavno vsebino

Kako hitro izvleči e-poštni naslov iz besedilnega niza?

Ko uvozite nekaj e-poštnih naslovov s spletnega mesta na Excelov delovni list, vedno vsebuje neustrezno besedilo, zdaj pa želite samo izvleči čiste e-poštne naslove iz besedilnega niza (glejte naslednje posnetke zaslona). Kako lahko hitro dobite samo e-poštne naslove iz besedila celice?

doc-extra-emails1 -2 doc-extra-emails2

Izvlecite e-poštni naslov iz besedilnega niza s formulo

Izvlecite e-poštni naslov iz besedilnega niza z uporabniško določeno funkcijo

Izvlecite e-poštni naslov iz besedilnega niza s kodo VBA

Izvlecite e-poštni naslov iz besedilnega niza s programom Kutools za Excel


puščica modri desni mehurček Izvlecite e-poštni naslov iz besedilnega niza s formulo

Tukaj vam predstavljam dolgo formulo za izločanje samo e-poštnih naslovov iz besedila v Excelu. Naredite naslednje:

1. V sosednjo celico B1 vnesite to formulo = TRIM (DESNO (NAMESTA (LEVO (A1, FIND (", A1 &" ", FIND (" @ ", A1)) - 1)," ", REPT (" ", LEN (A1))), LEN ( A1))).

doc-extra-emails3

2. Nato pritisnite Vnesite tipko, nato izberite celico B1 in povlecite ročico za polnjenje do obsega, v katerega želite vsebovati to formulo. In e-poštni naslovi v obsegu so bili povzeti iz besedilnega niza. Oglejte si posnetek zaslona:

doc-extra-emails4

Opombe:

1. Ločila za e-poštnim naslovom bodo tudi odstranjena.

2. Če celice ne vsebujejo e-poštnih naslovov, bo formula prikazala vrednosti napak.

3. Če je v celici več e-poštnih naslovov, bo formula izvlekla samo prvi naslov.


Izvlecite več e-poštnih naslovov iz besedilnih nizov

Kutools za ExcelJe Izvleček e-poštnega naslova vam lahko pomaga hitro in priročno izvleči e-poštne naslove iz besedilnih nizov. Kliknite za prenos Kutools za Excel!

doc izvleček e-pošte-1

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!


puščica modri desni mehurček Izvlecite e-poštni naslov iz besedilnega niza z uporabniško določeno funkcijo

Razen zgornje formule vam lahko uporabniško določena funkcija pomaga pri pridobivanju e-poštnega naslova iz besedilnega niza.

1. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednji makro v okno modula.

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. Nato shranite kodo in vnesite formulo = ExtractEmailFun (A1) v sosednji prazni celici si oglejte posnetek zaslona:

doc-extra-emails5

4. In nato pritisnite Vnesite tipko, izberite celico B1 in povlecite ročico za polnjenje do obsega, ki ga potrebujete za formulo. Vsi e-poštni naslovi so bili povzeti iz besedila celice. Oglejte si posnetek zaslona:

doc-extra-emails6

Opombe:

1. Če celice nimajo e-poštnih naslovov, bodo razkrite prazne celice.

2. Če je v celici več e-poštnih naslovov, bodo vsa e-poštna sporočila ekstrahirana.


puščica modri desni mehurček Izvlecite e-poštni naslov iz besedilnega niza s kodo VBA

Če menite, da so zgornje formule za vas težavne, vam lahko naslednja koda VBA pomaga izločiti e-poštne naslove naenkrat.

1. Držite tipko ALT + F11 tipke in odpre se a Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Okno modula.

VBA: izvleči e-poštne naslove iz besedilnega niza

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. Nato pritisnite F5 tipko za zagon te kode in v izpuščenem pogovornem oknu izberite obseg, za katerega želite uporabiti VBA, glejte posnetek zaslona:

doc-extra-emails7

4. Nato kliknite OK, in e-poštni naslovi so bili izvlečeni iz izbranih besedilnih nizov. Oglejte si posnetke zaslona:

doc-extra-emails8 -2 doc-extra-emails9

Opombe:

1. Če celice nimajo e-poštnih naslovov, bodo razkrite prazne celice.

2. Vsa e-poštna sporočila bodo ekstrahirana, če je v celici več e-poštnih naslovov.

3. Izvlečena e-poštna sporočila bodo zajemala prvotne podatke, zato raje najprej varnostno kopirajte podatke, če jih potrebujete.


puščica modri desni mehurček Z enim klikom izvlecite e-poštni naslov iz besedilnega niza s programom Kutools for Excel

Zgornje metode so za naše začetnike v Excelu videti nekoliko zapletene, tukaj vam lahko priporočam hitro in enostavno orodje - Kutools za Excel, Z njegovim Izvleček e-poštnega naslova Pripomoček lahko e-poštne naslove izvlečete iz besedilnih nizov brez veliko truda.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh.

Če ste namestili Kutools za Excel, naredite naslednje:

1. Izberite celice, ki vsebujejo besedilne nize.

2. Kliknite Kutools > Besedilo > Izvleček e-poštnega naslova, glej posnetek zaslona:

3. In Izvleček e-poštnega naslova odpre se pogovorno okno, izberite celico, v katero želite dati rezultat, glejte posnetek zaslona:

doc-extra-emails9

4. Nato kliknite OK , so vsi e-poštni naslovi izvlečeni iz besedilnih nizov, glejte posnetek zaslona:

doc-extra-emails9

Kliknite za prenos in brezplačno preskusno različico Kutools za Excel zdaj!


puščica modri desni mehurček Predstavitev: izvlecite e-poštni naslov iz besedilnega niza s programom Kutools za Excel

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Povezani članek:

Kako izvleči domene iz več e-poštnih naslovov v Excelu?

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (40)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
You're a genius!!!
This comment was minimized by the moderator on the site
Really helpful to extract emails in a neat way, thank you!
This comment was minimized by the moderator on the site
Malheureusement la première formule donnée se met en erreur....
This comment was minimized by the moderator on the site
Thank you very much, spend only half hour looking for this and save me ten hours of work!
This comment was minimized by the moderator on the site
This is the most useful page I have ever found on Excel - thank you.
This comment was minimized by the moderator on the site
How do you extract multiple email addresses for one cell?
This comment was minimized by the moderator on the site
Hi, Donna,
The second and the third methods in this article can help you to extract multiple Email addresses from one cell, please try, thank you!
This comment was minimized by the moderator on the site
Quando extraído mais que um email usando a macro, como separa-los depois usando uma outra célula ? Ou é possível extrair já separando ?
This comment was minimized by the moderator on the site
Saved me hours of manual parsing. Thank you!
This comment was minimized by the moderator on the site
Thank you!
This comment was minimized by the moderator on the site
Hi. This is a great job! I am sure that hundreds of people learned new stuff because of it. But if you just want to extract email addresses, you can use extractemailaddress.com . It seemed simple and quick, and I hav pasted the result in my excel spreadsheet. great!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations