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?
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))).
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:
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!
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!
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:
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:
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.
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:
4. Yna cliciwch OK, ac mae'r cyfeiriadau e-bost wedi'u tynnu o'r tannau testun a ddewiswyd. Gweler sgrinluniau:
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.
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:
4. Yna cliciwch OK botwm, mae'r holl gyfeiriadau e-bost wedi'u tynnu o'r tannau testun, gweler y screenshot:
Cliciwch i Lawrlwytho a threialu am ddim Kutools ar gyfer Excel Nawr!
Demo: Detholiad cyfeiriad e-bost o llinyn testun gyda Kutools ar gyfer Excel
Erthygl gysylltiedig:
Sut i dynnu parthau o gyfeiriadau e-bost lluosog yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
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...
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!