Note: The other languages of the website are Google-translated. Back to English
English English
  • dogfennau
  • Excel
  • Sut i dynnu cyfeiriad e-bost yn gyflym o linyn testun?

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

Tynnwch gyfeiriad e-bost o'r 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 Tynnwch gyfeiriad e-bost o linyn testun gyda Kutools ar gyfer Excel trwy 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 Kutools treial am ddim ar gyfer Excel Now!


swigen dde glas saeth Demo: Tynnu cyfeiriad e-bost o'r 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?


Yr Offer Cynhyrchedd Swyddfa Gorau

Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, Ac Yn Cynyddu Eich Cynhyrchiant erbyn
80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na
    300
    nodweddion pwerus
    . Yn cefnogi Office/Excel
    2007-2019 a 365
    . Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn
    30
    - treial am ddim diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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 gan
    50%
    , ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (40)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
DEFNYDDIO LUL Y COD HWN AR GYFER DYFYNIAD E-BOST. Is lula() Dim d1 Fel Amrywiad cntr = 0 rowstring = ActiveCell.Offset(0, 0).Value d1 = Hollti(llinyn rhes, " ") Gwneud 'MsgBox d1(cntr) cntr = cntr + 1 Os d1(cntr) = Yna Ewch i ttt Os InStr(d1(cntr), " @") Yna MsgBox d1(cntr) GoTo ttt Diwedd Os Dolen Tra d1(cntr) "" ttt: Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ddefnyddiol iawn, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y fformiwla hon! Rydych chi newydd arbed tunnell o waith i mi - bu'n rhaid i chi dynnu 1500 o negeseuon e-bost o daflen Excel a ysgrifennwyd yn wael ar gyfer rhestr farchnata e-bost. Unwaith i mi ddod o hyd i'ch fformiwla o'r diwedd roedd yn snap.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cod gwych! Defnyddiol iawn. Yn anffodus, mae'n cynnwys sawl cyfeiriad e-bost yn hytrach na'u gwahanu'n ddefnyddiol, er enghraifft gyda hanner colon. Sut byddech chi'n ychwanegu gwahanydd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
dim VBA dim ond fformiwla i'w gludo i mewn i'r gell Newidiwch y cyfeiriadau (mae'r enghraifft isod yn edrych ar Cell A1) = TRIM(DE(SUBSTITUTE(LEFT(A1,FIND("@",A1)-1))," ", REPT( " ", 99), 99))&MID(A1, FIND (" @", A1), FIND (" ", A1&" ", FIND (" @", A1)) - FIND (" @", A1) )
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[quote]... =TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND("@",A1)-1)," ",REPT(" ",99)),99))&MID(A1,FIND("@",A1),FIND(" ",A1&" ",FIND("@",A1))-FIND("@",A1))Gan ME[/quote] Diolch "ME", yn gweithio air am air yn nhaenlen Google!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] dim VBA dim ond fformiwla i'w gludo i mewn i'r gell Newidiwch y cyfeiriadau (mae'r enghraifft isod yn edrych ar Gell A1) = TRIM(DE(SUBSTITUTE(LEFT(A1,FIND("@",A1)-1))," " , REPT (" ", 99), 99)) & CANOLOG(A1, FIND ("@", A1), FIND (" ", A1&" ", FIND (" @", A1)) - FIND ("@" , A1))Gan ME[/quote] Diolch. Fe weithiodd i mi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Anhygoel! Cofion mawr i sgript VBS! DIOLCH!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr, mae hyn yn handi iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn wych, ond nawr mae gen i broblem. Mae bwlch yn lle cyfnod rhwng yr holl gyfeiriadau e-bost (hy abcd@aol com), felly nid yw'r fformiwla yn rhoi diwedd yr holl gyfeiriadau e-bost (.net, .com, ac ati) yn y golofn newydd. Sut alla i drwsio hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, roeddwn i hefyd yn chwilio am ffordd i wahanu'r cyfeiriadau e-bost, fel y gallwn ei roi yn Outlook. Rwyf wedi ychwanegu "; " gwahanydd rhwng y cyfeiriadau e-bost fel nad ydynt yn rhedeg ymlaen gyda'i gilydd. Rhowch wybod i mi beth yw eich barn. Diolch i awdur y gwreiddiol am ddod â hyn at ei gilydd! Swyddogaeth ExtractEmailFun(extractStr Fel Llinyn) Fel Llinyn 'Diweddariad 20150723 Dim CharList As String On Error Ail-ddechrau Next CheckStr = "[A-Za-z0-9._-]" ExtractEmailFun = " Mynegai = 1 Gwneud Tra Gwir Mynegai1 = VBA. InStr(Mynegai, extractStr, "@") getStr = "" Os Mynegai1 > 0 Yna Ar gyfer p = Mynegai 1 - 1 I 1 Cam -1 Os Canolbarth(extractStr, p, 1) Fel CheckStr Yna getStr = Canolbarth(extractStr, p, 1) & getStr Arall Ymadael Ar Gyfer Diwedd Os Nesaf getStr = getStr & "@" Ar gyfer p = Mynegai1 + 1 I Len(extractStr) Os Canolbarth(extractStr, p, 1) Fel CheckStr Yna getStr = getStr & Mid(extractStr, p, 1) 1) Arall getStr = getStr Gadael Ar Gyfer Diwedd Os Mynegai Nesaf = Mynegai1 + 10 getStr = getStr & " ; " If ExtractEmailFun = " " Yna ExtractEmailFun = getStr Arall ExtractEmailFun = ExtractEmailFun & Chr(XNUMX) & getStr Diwedd Os Arall Ymadael Do End Os Swyddogaeth Diwedd Dolen
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch i awdur y sgript wreiddiol; Es ymlaen ac ychwanegu "; " gwahanydd rhwng cyfeiriadau e-bost lluosog. Swyddogaeth ExtractEmailFun(extractStr Fel Llinyn) Fel Llinyn 'Diweddariad 20150723 Dim CharList As String On Error Ail-ddechrau Next CheckStr = "[A-Za-z0-9._-]" ExtractEmailFun = " Mynegai = 1 Gwneud Tra Gwir Mynegai1 = VBA. InStr(Mynegai, extractStr, "@") getStr = "" Os Mynegai1 > 0 Yna Ar gyfer p = Mynegai 1 - 1 I 1 Cam -1 Os Canolbarth(extractStr, p, 1) Fel CheckStr Yna getStr = Canolbarth(extractStr, p, 1) & getStr Arall Ymadael Ar Gyfer Diwedd Os Nesaf getStr = getStr & "@" Ar gyfer p = Mynegai1 + 1 I Len(extractStr) Os Canolbarth(extractStr, p, 1) Fel CheckStr Yna getStr = getStr & Mid(extractStr, p, 1) 1) Arall getStr = getStr Gadael Ar Gyfer Diwedd Os Mynegai Nesaf = Mynegai1 + 10 getStr = getStr & " ; " If ExtractEmailFun = " " Yna ExtractEmailFun = getStr Arall ExtractEmailFun = ExtractEmailFun & Chr(XNUMX) & getStr Diwedd Os Arall Ymadael Do End Os Swyddogaeth Diwedd Dolen
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn dda! Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Brawd, rydych yn wirioneddol athrylith. Gweithiodd islaw'r fformiwla i mi ac arbedwyd ymyriad â llaw a arferai gymryd oriau =TRIM(RIGHT(SUBSTITUTE(LEFT(H2,FIND("", H2&"",,FIND("@",H2))-1),"", REPT (" ", LEN(H2)), LEN(H2))) Dduw Bendithia chi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dwi angen mwy o wybodaeth sut i echdynnu e-byst
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Syr, Sut alla i dynnu ids e-bost cywir o fy rhestr e-bost enghraifft isod a.hamilton@tradsingapore.com.sg aarabest@emirates.com.net.ae admin@countrywide.com.my
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gan fod y fformiwla wedi bod yn help mawr i mi, roeddwn i'n meddwl y byddwn i'n rhannu fy mhrofiad. Rwy'n ei redeg yn erbyn rhestr o we-grapiau html sydd weithiau mor hir nes bod gwallau yn y fformiwla. Yn ôl wikipedia uchafswm hyd cyfeiriad e-bost yw 254 nod felly mae disodli'r dognau len(A1) gyda 256 yn gwella sefydlogrwydd y swyddogaeth: =TRIM(RIGHT(SUBSTITUTE(CHWITH(A1,Find("",,A1&",", FIND ("@", A1))-1), "", REPT (" ", 256)), 256))
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ardderchog, bendigedig. rhaid i bob un ddefnyddio ..
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os wyf am dynnu un cyfeiriad e-bost yn unig o A1, mae'r fformiwla hon yn gwneud hynny ac yn adrodd dim ond gwag, nid gwall, os nad yw A1 yn cynnwys unrhyw gyfeiriad e-bost. Rwy'n gweld hwn yn ateb haws na cheisio meistroli'r holl sgriptiau hyn, ac nid yw'n costio dim. =IFERROR(TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND)" ",A1&" ", FIND(" @",A1))-1), ",REPT(",",LEN(A1))), LEN(A1))),"")
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hynod o gymwynasgar. Diolch yn fawr!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwybodaeth anhygoel! Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio Excel 2007 ar HP. Os oes gennych chi Melanie Brown yn A1 ac yn dymuno iddi ddarllen Melanie.Brown@gmail.com yn yr un gell, sut ydych chi'n cyflawni hyn? Mae gen i llinyn o manes i wneud yr un ffordd. A fydd rhywun yn fy helpu gyda hyn?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL