Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet gyorsan kibontani az e-mail címet a szöveges karakterláncból?

Amikor néhány e-mail címet importál a Webhelyről az Excel munkalapra, ott mindig nem releváns szöveg található, de most csak a tiszta e-mail címeket szeretné kivonni a szöveges karakterláncból (lásd a következő képernyőképeket). Hogyan tudná gyorsan megszerezni csak az e-mail címeket a cellaszövegből?

doc-kivonat-e-mailek1 -2 doc-kivonat-e-mailek2

Kivonat e-mail címet a szöveges karakterláncból a Formula segítségével

Bontsa ki az e-mail címet a szöveges karakterláncból a Felhasználó által definiált funkcióval

Kivonat e-mail címet a VBA kóddal ellátott szöveges karakterláncból

Bontsa ki az e-mail címet a szöveges karakterláncból a Kutools for Excel programmal


nyíl kék jobb buborék Kivonat e-mail címet a szöveges karakterláncból a Formula segítségével

Itt bemutatok egy hosszú képletet, amely csak az e-mail címeket vonja ki az Excel szövegéből. Kérjük, tegye a következőket:

1. A szomszédos B1 cellába írja be ezt a képletet = TRIM (JOBB (PÓT (BAL (A1, FIND ("", A1 & "", FIND ("@", A1)) - 1), "", REPT ("", LEN (A1))), HEN A1))).

doc-kivonat-e-mailek3

2. Ezután nyomja meg a gombot belép gombot, majd válassza ki a B1 cellát, és húzza a kitöltő fogantyút arra a tartományra, amelybe ezt a képletet be kívánja állítani. És a tartomány e-mail címeit kibontották a szöveges karakterláncból. Lásd a képernyőképet:

doc-kivonat-e-mailek4

Megjegyzések:

1. Az e-mail utáni írásjeleket is kibontják.

2. Ha a cellák nem tartalmazzák az e-mail címeket, a képlet hibaértékeket jelenít meg.

3. Ha egy cellában egynél több e-mail cím van, a képlet csak az első címet vonja ki.


Több e-mail cím kibontása szöveges karakterláncokból

Kutools az Excel számára'S Kivonat e-mail cím segíthet az e-mail címek gyors és kényelmes kibontásában a szöveges karakterláncokból. Kattintson a Kutools for Excel letöltéséhez!

doc kivonat e-mailek-1

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!


nyíl kék jobb buborék Bontsa ki az e-mail címet a szöveges karakterláncból a Felhasználó által definiált funkcióval

A fenti képlet kivételével a Felhasználó által definiált függvény szintén segíthet az e-mail cím megszerzésében a szöveges karakterláncból.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modul ablakba.

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. Ezután mentse el a kódot, és írja be a képletet = ExtractEmailFun (A1) egy szomszédos üres cellában lásd a képernyőképet:

doc-kivonat-e-mailek5

4. Ezután nyomja meg a gombot belép gombot, válassza ki a B1 cellát, és húzza át a kitöltő fogantyút arra a tartományra, amelyre a képletre szüksége van. És az összes e-mail címet kivonták a cellaszövegből. Lásd a képernyőképet:

doc-kivonat-e-mailek6

Megjegyzések:

1. Ha a cellák nem rendelkeznek e-mail címmel, akkor üres cellákat tárnak fel.

2. Ha egy cellában egynél több e-mail cím van, akkor az összes e-mailt kibontjuk.


nyíl kék jobb buborék Kivonat e-mail címet a VBA kóddal ellátott szöveges karakterláncból

Ha úgy érzi, hogy a fenti képletek problémásak az Ön számára, a következő VBA-kód segíthet az e-mail címek kibontásában.

1. Tartsa lenyomva a ALT + F11 gombokat, és megnyílik a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modul ablak.

VBA: e-mail címek kivonása a szöveges karakterláncból

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és a felbukkanó párbeszédpanelen ki kell választania egy tartományt, amelyet használni szeretne a VBA használatával, lásd a képernyőképet:

doc-kivonat-e-mailek7

4. Ezután kattintson OK, és az e-mail címek kibontásra kerültek a kiválasztott szöveges karakterláncokból. Képernyőképek megtekintése:

doc-kivonat-e-mailek8 -2 doc-kivonat-e-mailek9

Megjegyzések:

1. Ha a cellák nem rendelkeznek e-mail címmel, akkor üres cellákat tárnak fel.

2. Az összes e-mailt kibontjuk, ha egy cellában egynél több e-mail cím van.

3. A kibontott e-mailek lefedik az eredeti adatokat, ezért jobb, ha először biztonsági másolatot készít az adatokról.


nyíl kék jobb buborék Bontsa ki az e-mail címet a szöveges karakterláncból a Kutools for Excel alkalmazással egyetlen kattintással

A fenti módszerek kissé bonyolultnak tűnnek az Excel kezdők számára, itt egy gyors és egyszerű eszközt tudok ajánlani - Kutools az Excel számára, Annak Kivonat e-mail cím segédprogram, különösebb erőfeszítés nélkül kivonhatja az e-mail címeket a szöveges karakterláncokból.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható.

Ha telepítve van Kutools az Excel számára, kérjük, tegye a következőket:

1. Jelölje ki a szöveges karakterláncokat tartalmazó cellákat.

2. Kattints Kutools > szöveg > Kivonat e-mail cím, lásd a képernyőképet:

3. És egy Kivonat e-mail cím megjelenik a párbeszédpanel, válassza ki azt a cellát, ahová az eredményt fel szeretné tenni, lásd a képernyőképet:

doc-kivonat-e-mailek9

4. Ezután kattintson OK gombra, az összes e-mail címet kivonták a szöveges karakterláncokból, lásd a képernyőképet:

doc-kivonat-e-mailek9

Kattintson a letöltéshez és ingyenes próbaverzióhoz Kutools for Excel Now!


nyíl kék jobb buborék Bemutató: Kivonat e-mail címet a szöveges karakterláncból a Kutools for Excel programmal

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

Kapcsolódó cikk:

Hogyan lehet kibontani a domaineket több e-mail címből az Excelben?


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (40)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
LUL EZT A KÓDOT AZ E-MAIL-KIVONATHOZ HASZNÁLJA. Sub lula() Dim d1 As Variant cntr = 0 rowstring = ActiveCell.Offset(0, 0). Érték d1 = Split(sorstring, " ") Tedd 'MsgBox d1(cntr) cntr = cntr + 1 Ha d1(cntr) = "" Akkor GoTo ttt If InStr(d1(cntr), "@") then MsgBox d1(cntr) GoTo ttt End If Loop While d1(cntr) "" ttt: End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
nagyon hasznos, köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm ezt a formulát! Rengeteg munkától kíméltél meg – 1500 e-mailt kellett kivonnom egy rosszul megírt Excel-lapból egy e-mail-marketinglistához. Miután végre megtaláltam a képletet, csettintés volt.
A weboldal moderátora ezt a megjegyzést minimalizálta
Remek kód! Tényleg hasznos. Sajnos ez több e-mail címet összefűz, nem pedig hasznosan elválasztja őket, például pontosvesszővel. Hogyan adnál hozzá elválasztót?
A weboldal moderátora ezt a megjegyzést minimalizálta
nincs VBA, csak képletet kell beilleszteni a cellába Csak módosítsa a hivatkozásokat ( az alábbi példa az A1 cellát nézi) =TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND("@",A1)-1)," ",REPT( " ",99)),99))&MID(A1,KERESÉS("@",A1),KERESÉS(" ",A1&" ",KERES("@",A1))-KERESÉS("@",A1) )
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote]... =TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND("@",A1)-1)," ",REPT(" ",99)),99))&MID(A1,FIND("@",A1),FIND(" ",A1&" ",FIND("@",A1))-FIND("@",A1))Általam[/quote] Köszönöm "ME", szó szerint működik a Google táblázatban!
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote]nincs VBA, csak képletet kell beilleszteni a cellába. Csak módosítsa a hivatkozásokat (az alábbi példa az A1 cellát nézi) =TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND("@",A1)-1)," " ,REPT(" ",99)),99))&MID(A1,FIND("@",A1),FIND(" ",A1&" ",FIND("@",A1))-FIND("@" ,A1))Általam[/quote] Köszönöm. Nekem bevált.
A weboldal moderátora ezt a megjegyzést minimalizálta
Elképesztő! Üdvözlöm a VBS-szkriptet! KÖSZ!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen, ez nagyon hasznos!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nagyszerű, de most van egy problémám. Az összes e-mail cím között pont helyett szóköz van (pl. abcd@aol com), így a képlet nem írja be az összes e-mail cím végét (.net, .com stb.) az új oszlopba. Hogyan tudom ezt megjavítani?
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok! Én is kerestem egy módot az e-mail címek elkülönítésére, hogy be tudjam helyezni az Outlookba. Hozzáadtam egy "; " elválasztót az e-mail címek közé, hogy ne fussanak együtt. Tudasd velem mire gondolsz. Köszönet az eredeti szerzőjének, hogy összehozta ezt! Funkció ExtractEmailFun(extractStr As String) As String 'Frissítés 20150723 Karakterlista halványítása Karakterláncként Hiba esetén Folytatás Következő CheckStr = "[A-Za-z0-9._-]" ExtractEmailFun = "" Index = 1 Csináld, miközben True Index1 = VBA. InStr(Index, kivonatStr, "@") getStr = "" Ha Index1 > 0 then For p = Index1 - 1 To 1 Step -1 If Mid(extractStr, p, 1) Like CheckStr Akkor 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 Akkor getStr = getStr & Mid(extractStr, p, 1) Else getStr = getStr Kilépés a végéhez Ha Következő Index = Index1 + 1 getStr = getStr & "; " If ExtractEmailFun = "" Akkor ExtractEmailFun = getStr Else ExtractEmailFun = ExtractEmailFun & Chr(10) & getStr End If Else Kilépés Do End If Hurokvégi funkció
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönet az eredeti forgatókönyv szerzőjének; Továbbmentem, és hozzáadtam egy "; " elválasztót több e-mail cím közé. Funkció ExtractEmailFun(extractStr As String) As String 'Frissítés 20150723 Karakterlista halványítása Karakterláncként Hiba esetén Folytatás Következő CheckStr = "[A-Za-z0-9._-]" ExtractEmailFun = "" Index = 1 Csináld, miközben True Index1 = VBA. InStr(Index, kivonatStr, "@") getStr = "" Ha Index1 > 0 then For p = Index1 - 1 To 1 Step -1 If Mid(extractStr, p, 1) Like CheckStr Akkor 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 Akkor getStr = getStr & Mid(extractStr, p, 1) Else getStr = getStr Kilépés a végéhez Ha Következő Index = Index1 + 1 getStr = getStr & "; " If ExtractEmailFun = "" Akkor ExtractEmailFun = getStr Else ExtractEmailFun = ExtractEmailFun & Chr(10) & getStr End If Else Kilépés Do End If Hurokvégi funkció
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez jó! köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Testvér, te igazán zseniális vagy. Az alábbi képlet működött számomra, és elmentettem a kézi beavatkozást, ami korábban órákig tartott =TRIM(RIGHT(SUBSTITUTE(LEFT(H2,FIND (" ",H2&" ",FIND("@",H2))-1)," ", REPT(" ",LEN(H2))),LEN(H2))) Isten éltessen
A weboldal moderátora ezt a megjegyzést minimalizálta
További információra van szükségem az e-mailek kibontásával kapcsolatban
A weboldal moderátora ezt a megjegyzést minimalizálta
Tisztelt Uram! Hogyan nyerhetek ki helyes e-mail azonosítókat az alábbi e-mail listámból: a.hamilton@tradsingapore.com.sg aarabest@emirates.com.net.ae admin@countrywide.com.my
A weboldal moderátora ezt a megjegyzést minimalizálta
mivel a képlet nagy segítségemre volt, gondoltam megosztom a tapasztalataimat. Futtatom a html webscrape-ok listáján, amelyek néha olyan hosszúak, hogy a képlet hibás. A wikipédia szerint egy e-mail cím maximális hossza 254 karakter, így a len(A1) részek 256-ra cserélése javítja a függvény stabilitását: =TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND (" ",A1&" ", FIND("@",A1))-1)," ", REPT(" ",256)),256))
A weboldal moderátora ezt a megjegyzést minimalizálta
Kiváló, csodálatos. mindenkinek használnia kell..
A weboldal moderátora ezt a megjegyzést minimalizálta
Ha csak egy e-mail címet akarok kinyerni az A1-ből, akkor ez a képlet ezt megteszi, és csak üres helyet jelez, nem hibát, ha az A1 nem tartalmaz e-mail címet. Egyszerűbb megoldásnak tartom, mint megpróbálni elsajátítani ezeket a szkripteket, és semmibe sem kerül. =IFERROR(TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND(" ",A1&" ",FIND("@",A1))-1)," ",REPT(" ",LEN(A1))), LEN(A1)))")
A weboldal moderátora ezt a megjegyzést minimalizálta
Rendkívül hasznos. Nagyon köszönöm!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szuper infók! Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
Excel 2007-et használok HP-n. Ha Melanie Brown van az A1-ben, és szeretné, hogy ugyanabban a cellában olvassa a Melanie.Brown@gmail.com címet, hogyan érheti el ezt? Nekem is van egy sor sörényem, amit ugyanígy kell csinálni. Valaki segít nekem ebben?
Még senki sem írt megjegyzést
Több ingatlan
Kérjük, írja meg észrevételeit angol nyelven
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi