Skip i'r prif gynnwys

Sut i dynnu cyfeiriad e-bost yn gyflym o linyn testun?

Pan fyddwch yn mewnforio rhywfaint o gyfeiriadau e-bost o'r Wefan i daflen waith Excel, mae testun amherthnasol bob amser, ond nawr rydych chi am dynnu'r cyfeiriadau e-bost pur o'r llinyn testun (gweler y sgrinluniau canlynol). Sut y gallech chi gael y cyfeiriadau e-bost yn gyflym o'r testun cell?

doc-extract-email1 -2 doc-extract-email2

Tynnwch gyfeiriad e-bost o'r llinyn testun gyda Fformiwla

Tynnwch gyfeiriad e-bost o linyn testun gyda Swyddogaeth Diffiniedig Defnyddiwr

Tynnu cyfeiriad e-bost o'r llinyn testun gyda chod VBA

Detholiad cyfeiriad e-bost o llinyn testun gyda Kutools ar gyfer Excel


swigen dde glas saeth Tynnwch gyfeiriad e-bost o'r llinyn testun gyda Fformiwla

Yma, rwy'n cyflwyno fformiwla hir i chi dynnu dim ond y cyfeiriadau e-bost o'r testun yn Excel. Gwnewch fel a ganlyn:

1. Yn y gell B1 gyfagos, nodwch y fformiwla hon = TRIM (DDE (SUBSTITUTE (CHWITH (A1, FIND ("", A1 & "", FIND ("@", A1)) - 1), "", REPT ("", LEN (A1)), LEN ( A1))).

doc-extract-email3

2. Yna pwyswch Rhowch allwedd, yna dewiswch y gell B1, a llusgwch y ddolen llenwi i'r ystod rydych chi am gynnwys y fformiwla hon. Ac mae'r cyfeiriadau e-bost yn yr ystod wedi'u tynnu o'r llinyn testun. Gweler y screenshot:

doc-extract-email4

Nodiadau:

1. Bydd yr atalnodi ar ôl y cyfeiriad e-bost hefyd yn cael ei dynnu.

2. Os nad yw'r celloedd yn cynnwys y cyfeiriadau e-bost, bydd y fformiwla'n dangos gwerthoedd gwall.

3. Os oes mwy nag un cyfeiriad e-bost mewn cell, dim ond y cyfeiriad cyntaf y bydd y fformiwla'n ei dynnu.


Tynnu Cyfeiriadau E-bost Lluosog o dannau testun

Kutools ar gyfer Excel'S Detholiad Cyfeiriad E-bost gall eich helpu i echdynnu'r cyfeiriadau e-bost o'r tannau testun yn gyflym ac yn gyfleus. Cliciwch i lawrlwytho Kutools ar gyfer Excel!

echdynnu doc ​​e-byst-1

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!


swigen dde glas saeth Tynnwch gyfeiriad e-bost o linyn testun gyda Swyddogaeth Diffiniedig Defnyddiwr

Ac eithrio'r fformiwla uchod, gall Swyddogaeth wedi'i Diffinio gan Ddefnyddiwr hefyd eich helpu i gael y cyfeiriad e-bost o'r llinyn testun.

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn ffenestr y Modiwl.

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. Yna arbedwch y cod a nodi'r fformiwla = ExtractEmailFun (A1) mewn cell wag gyfagos, gweler y screenshot:

doc-extract-email5

4. Ac yna pwyswch Rhowch allwedd, dewiswch y gell B1, a llusgwch y ddolen llenwi i'r ystod y mae angen y fformiwla arnoch. Ac mae'r holl gyfeiriadau e-bost wedi'u tynnu o'r testun cell. Gweler y screenshot:

doc-extract-email6

Nodiadau:

1. Os nad oes gan y celloedd y cyfeiriadau e-bost, bydd yn datgelu celloedd gwag.

2. Os oes mwy nag un cyfeiriad e-bost mewn cell, bydd yr holl negeseuon e-bost yn cael eu tynnu.


swigen dde glas saeth Tynnu cyfeiriad e-bost o'r llinyn testun gyda chod VBA

Os ydych chi'n teimlo bod y fformwlâu uchod yn drafferthus i chi, gall y cod VBA canlynol eich helpu i echdynnu'r cyfeiriadau e-bost yn un.

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor a Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Ffenestr modiwl.

VBA: tynnu cyfeiriadau e-bost o linyn testun

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. Yna Pwyswch F5 allwedd i redeg y cod hwn, a dylech ddewis ystod yr ydych am ddefnyddio'r VBA yn y dialog popped out, gweler y screenshot:

doc-extract-email7

4. Yna cliciwch OK, ac mae'r cyfeiriadau e-bost wedi'u tynnu o'r tannau testun a ddewiswyd. Gweler sgrinluniau:

doc-extract-email8 -2 doc-extract-email9

Nodiadau:

1. Os nad oes gan y celloedd y cyfeiriadau e-bost, bydd yn datgelu celloedd gwag.

2. Bydd yr holl negeseuon e-bost yn cael eu tynnu, os oes mwy nag un cyfeiriad e-bost mewn cell.

3. Bydd yr e-byst a dynnwyd yn cwmpasu'r data gwreiddiol, felly byddai'n well ichi wneud copi wrth gefn o'r data yn gyntaf os bydd angen.


swigen dde glas saeth Detholiad cyfeiriad e-bost o llinyn testun gyda Kutools ar gyfer Excel gan un clic

Mae'r dulliau uchod yn edrych rhywfaint yn gymhleth i'n dechreuwr Excel, yma, gallaf argymell teclyn cyflym a hawdd i chi- Kutools ar gyfer Excel, Gyda'i Detholiad Cyfeiriad E-bost cyfleustodau, gallwch echdynnu'r cyfeiriadau e-bost o'r tannau testun heb lawer o ymdrech.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod.

Os ydych chi wedi gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:

1. Dewiswch fod y celloedd yn cynnwys y tannau testun.

2. Cliciwch Kutools > Testun > Detholiad Cyfeiriad E-bost, gweler y screenshot:

3. Ac an Detholiad Cyfeiriad E-bost bydd blwch deialog yn popio allan, yn dewis cell lle rydych chi am roi'r canlyniad, gweler y screenshot:

doc-extract-email9

4. Yna cliciwch OK botwm, mae'r holl gyfeiriadau e-bost wedi'u tynnu o'r tannau testun, gweler y screenshot:

doc-extract-email9

Cliciwch i Lawrlwytho a threialu am ddim Kutools ar gyfer Excel Nawr!


swigen dde glas saeth Demo: Detholiad cyfeiriad e-bost o llinyn testun gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Erthygl gysylltiedig:

Sut i dynnu parthau o gyfeiriadau e-bost lluosog yn Excel?

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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