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

Conas seoladh ríomhphoist a bhaint as sreangán téacs go tapa?

Nuair a iompórtálann tú roinnt seoltaí ríomhphoist ón Suíomh Gréasáin chuig bileog oibre Excel, bíonn téacs nach mbaineann le hábhar i gcónaí, ach anois níl uait ach na seoltaí ríomhphoist íon a bhaint as an sreangán téacs (féach na scáileáin scáileáin seo a leanas). Conas a d’fhéadfá na seoltaí ríomhphoist a fháil go tapa ón téacs cealla?

doc-sliocht-ríomhphoist1 -2 doc-sliocht-ríomhphoist2

Sliocht seoladh ríomhphoist ó shreang an téacs le Foirmle

Sliocht seoladh ríomhphoist ó shreang an téacs le Feidhm Sainithe ag an Úsáideoir

Sliocht seoladh ríomhphoist as sreangán téacs le cód VBA

Sliocht seoladh ríomhphoist as sreangán téacs le Kutools le haghaidh Excel


mboilgeog cheart gorm saighead Sliocht seoladh ríomhphoist ó shreang an téacs le Foirmle

Seo a thugann mé isteach foirmle fhada duit chun na seoltaí ríomhphoist a bhaint as an téacs in Excel amháin. Déan mar a leanas le do thoil:

1. Sa chill B1 in aice láimhe, iontráil an fhoirmle seo = TRIM (CEART (SUBSTITUTE (LEFT (A1, FIND ("", A1 & "", FIND ("@", A1)) - 1), "", REPT ("", LEN (A1))), LEN ( A1))).

doc-sliocht-ríomhphoist3

2. Ansin brúigh Iontráil eochair, ansin roghnaigh an chill B1, agus tarraing an láimhseáil líonta chuig an raon a theastaíonn uait an fhoirmle seo a bheith ann. Agus baineadh na seoltaí ríomhphoist sa raon ón sreangán téacs. Féach an pictiúr:

doc-sliocht-ríomhphoist4

Nótaí:

1. Bainfear an poncaíocht tar éis an seoladh ríomhphoist freisin.

2. Mura bhfuil na seoltaí ríomhphoist sna cealla, taispeánfaidh an fhoirmle luachanna earráide.

3. Má tá níos mó ná seoladh ríomhphoist amháin i gcill, ní bhainfidh an fhoirmle ach an chéad seoladh.


Sliocht Il-Seoltaí Ríomhphoist as teaghráin téacs

Kutools le haghaidh Excel'S Sliocht Seoladh Ríomhphoist in ann cabhrú leat na seoltaí ríomhphoist a bhaint as na teaghráin téacs go tapa agus go caothúil. Cliceáil chun Kutools a íoslódáil le haghaidh Excel!

sliocht doc ríomhphoist-1

Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Íoslódáil agus triail saor in aisce Anois!


mboilgeog cheart gorm saighead Sliocht seoladh ríomhphoist ó shreang an téacs le Feidhm Sainithe ag an Úsáideoir

Seachas an fhoirmle thuas, is féidir le Feidhm Sainmhínithe ag Úsáideoir cabhrú leat an seoladh ríomhphoist a fháil ón sreangán téacs.

1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas i bhfuinneog an Mhodúil.

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. Ansin sábháil an cód agus cuir isteach an fhoirmle = ExtractEmailFun (A1) i gcill bhán in aice láimhe, féach an scáileán:

doc-sliocht-ríomhphoist5

4. Agus ansin brúigh Iontráil eochair, roghnaigh an chill B1, agus tarraing an láimhseáil líonta go dtí an raon a theastaíonn uait an fhoirmle. Agus baineadh gach seoladh ríomhphoist ón téacs cille. Féach an pictiúr:

doc-sliocht-ríomhphoist6

Nótaí:

1. Mura bhfuil na seoltaí ríomhphoist ag na cealla, nochtfaidh sé cealla bána.

2. Má tá níos mó ná seoladh ríomhphoist amháin i gcill, bainfear na ríomhphoist go léir.


mboilgeog cheart gorm saighead Sliocht seoladh ríomhphoist as sreangán téacs le cód VBA

Má bhraitheann tú go bhfuil na foirmlí thuas trioblóideach duit, is féidir leis an gcód VBA seo a leanas cabhrú leat na seoltaí ríomhphoist a bhaint ag ceann amháin.

1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé a Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas sa Fuinneog an mhodúil.

VBA: seol seoltaí ríomhphoist as sreangán téacs

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. Ansin Brúigh F5 eochair chun an cód seo a rith, agus ba cheart duit raon a roghnú ar mhaith leat an VBA a úsáid sa dialóg popped out, féach an scáileán:

doc-sliocht-ríomhphoist7

4. Ansin cliceáil OK, agus baineadh na seoltaí ríomhphoist as na teaghráin roghnaithe téacs. Féach screenshots:

doc-sliocht-ríomhphoist8 -2 doc-sliocht-ríomhphoist9

Nótaí:

1. Mura bhfuil na seoltaí ríomhphoist ag na cealla, nochtfaidh sé cealla bána.

2. Bainfear na ríomhphoist uile, má tá níos mó ná seoltaí ríomhphoist amháin i gcill.

3. Clúdóidh na ríomhphoist a bhaintear na sonraí bunaidh, mar sin b’fhearr duit na sonraí a chúltaca ar dtús más gá duit.


mboilgeog cheart gorm saighead Sliocht seoladh ríomhphoist ó shreang an téacs le Kutools for Excel le cliceáil amháin

Breathnaíonn na modhanna thuas casta go leor dár dtosaitheoirí Excel, anseo, is féidir liom uirlis thapa éasca a mholadh duit- Kutools le haghaidh Excel, Lena Sliocht Seoladh Ríomhphoist fóntais, is féidir leat na seoltaí ríomhphoist a bhaint as na teaghráin téacs gan mórán iarrachta.

Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá.

Má tá tú suiteáilte agat Kutools le haghaidh Excel, déan mar a leanas le do thoil:

1. Roghnaigh na cealla ina bhfuil na teaghráin téacs.

2. Cliceáil Kutools > Téacs > Sliocht Seoladh Ríomhphoist, féach ar an scáileán:

3. Agus an Sliocht Seoladh Ríomhphoist tiocfaidh bosca dialóige amach, roghnóidh sé cill inar mian leat an toradh a chur, féach an scáileán:

doc-sliocht-ríomhphoist9

4. Ansin cliceáil OK cnaipe, baineadh na seoltaí ríomhphoist go léir as na teaghráin téacs, féach an scáileán:

doc-sliocht-ríomhphoist9

Cliceáil chun Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!


mboilgeog cheart gorm saighead Taispeántas: Sliocht seoladh ríomhphoist as sreangán téacs le Kutools le haghaidh Excel

Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Íoslódáil agus triail saor in aisce Anois!

Airteagal gaolmhar:

Conas fearainn a bhaint as iliomad seoltaí ríomhphoist in Excel?


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (40)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
LUL ÚSÁID AN CÓD SEO DO Sliocht RÍOMHPHOST. Fo lula() Dim d1 Mar Athraitheach cntr = 0 rowstring = ActiveCell.Offset(0, 0).Value d1 = Scoilt(teaghrán róimhe, "") Déan 'MsgBox d1(cntr) cntr = cntr + 1 Má tá d1(cntr) = Ansin Téigh GoTo ttt If InStr(d1(cntr), " @") Ansin MsgBox d1(cntr) GoTo ttt End If Loop While d1(cntr) "" ttt: End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an-chabhrach, go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as an bhfoirmle seo! Shábháil tú tonna oibre dom - bhí ort 1500 ríomhphost a bhaint as bileog Excel nach raibh scríofa go dona le haghaidh liosta margaíochta ríomhphoist. Nuair a fuair mé faoi dheireadh do fhoirmle bhí sé ina Léim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cód iontach! An-úsáideach. Ar an drochuair tá seoltaí ríomhphoist iolracha á gcomhtháthú aige seachas iad a scaradh go húsáideach, mar shampla le leathstad. Conas a chuirfeá deighilteoir isteach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
níl aon fhoirmle VBA ach le greamú isteach sa chill Just a athrú na tagairtí (féach an sampla thíos ar Cill A1) = TRIM(CEART(SUBSTITUTE(LEFT(A1,FIND("@",A1)-1))," ",REPT( " ", 99), 99))&MID(A1, FIND ("@", A1), FIND (" ",A1&" ", FIND("@",A1))-FIND("@",A1) )
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[quote]... =TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND("@",A1)-1)," ",REPT(" ",99)),99))&MID(A1,FIND("@",A1),FIND(" ",A1&" ",FIND("@",A1))-FIND("@",A1))De réir ME[/quote] Go raibh maith agat "ME", oibríonn sé focal ar fhocal i scarbhileog Google!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] níl aon fhoirmle VBA ach le greamú isteach sa chill Just a athrú na tagairtí (féach an sampla thíos ar Cill A1) = TRIM(CEART(SUBSTITUTE(LEFT(A1,FIND("@",A1)-1))," " ,REPT(" ",99)),99))&MID(A1,FIND("@",A1),FIND(" ",A1&" ",FIND("@",A1))-FIND("@" ,A1))De réir ME[/quote] Go raibh maith agat. D'oibrigh sé dom.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Iontach! Comhghairdeas mór le script VBS! THX!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat, tá sé seo an-áisiúil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo go hiontach, ach anois tá fadhb agam. Tá spás in ionad tréimhse idir na seoltaí ríomhphoist go léir (.i. abcd@aol com), mar sin níl an fhoirmle ag cur deireadh na seoltaí ríomhphoist go léir (.net, .com, etc.) sa cholún nua. Conas is féidir liom é seo a shocrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, bhí mé ag lorg bealach freisin chun na seoltaí r-phoist a scaradh, ionas go bhféadfainn é a chur in Outlook. Chuir mé deighilteoir "; " idir na seoltaí ríomhphoist ionas nach mbeidh siad ag rith le chéile. Lig dom cad a cheapann tú. Buíochas le húdar an bhunleagan as é seo a chur le chéile! Feidhm ExtractEmailFun(extractStr As Teaghrán) Mar Theaghrán 'Nuashonraigh 20150723 Dim CharList As Teaghrán Ar Earráid Resume Next CheckStr = "[A-Za-z0-9._-]" ExtractEmailFun="" Innéacs = 1 Déan Cé gur Fíor Innéacs1 = VBA. InStr(Innéacs, extractStr, "@") getStr = "" Más Innéacs1 > 0 Ansin Do p = Innéacs1 - 1 Go 1 Céim -1 Más Lár (extractStr, p, 1) Cosúil le CheckStr Ansin getStr = Lár(extractStr, p, 1) & getStr Eile Scoir Don Chríoch Má Ar Aghaidh getStr = getStr & "@" Do p = Innéacs1 + 1 Go Len(extractStr) Más Lár (extractStr, p, 1) Cosúil le CheckStr Ansin getStr = getStr & Mid(extractStr, p, 1) Eile getStr = getStr Scoir Chun Deireadh Má An Chéad Innéacs Ar Aghaidh = Innéacs1 + 1 getStr = getStr & "; " If ExtractEmailFun = " " Ansin ExtractEmailFun = getStr Eile ExtractEmailFun = ExtractEmailFun & Chr(10) & getStr Deireadh Má Scoir Eile Déan Deireadh Má Feidhm Deiridh Lúb
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Buíochas le húdar an script bhunaidh; Chuaigh mé ar aghaidh agus chuir mé deighilteoir "; " isteach idir seoltaí r-phoist iolracha. Feidhm ExtractEmailFun(extractStr As Teaghrán) Mar Theaghrán 'Nuashonraigh 20150723 Dim CharList As Teaghrán Ar Earráid Resume Next CheckStr = "[A-Za-z0-9._-]" ExtractEmailFun="" Innéacs = 1 Déan Cé gur Fíor Innéacs1 = VBA. InStr(Innéacs, extractStr, "@") getStr = "" Más Innéacs1 > 0 Ansin Do p = Innéacs1 - 1 Go 1 Céim -1 Más Lár (extractStr, p, 1) Cosúil le CheckStr Ansin getStr = Lár(extractStr, p, 1) & getStr Eile Scoir Don Chríoch Má Ar Aghaidh getStr = getStr & "@" Do p = Innéacs1 + 1 Go Len(extractStr) Más Lár (extractStr, p, 1) Cosúil le CheckStr Ansin getStr = getStr & Mid(extractStr, p, 1) Eile getStr = getStr Scoir Chun Deireadh Má An Chéad Innéacs Ar Aghaidh = Innéacs1 + 1 getStr = getStr & "; " If ExtractEmailFun = " " Ansin ExtractEmailFun = getStr Eile ExtractEmailFun = ExtractEmailFun & Chr(10) & getStr Deireadh Má Scoir Eile Déan Deireadh Má Feidhm Deireadh Lúb
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo go maith! go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Deartháir, tá tú i ndáiríre genius. D'oibrigh mé faoi bhun na foirmle domsa agus sábháladh idirghabháil láimhe a ghlac uaireanta =TRIM(RIGHT(SUBSTITUTE(LEFT(H2,FIND"" ",H2&" ",FIND("@",H2))-1),,"", REPT (" ",LEN(H2)), LEN(H2))) Go mbeannaí Dia thú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Teastaíonn tuilleadh eolais uaim maidir le conas ríomhphoist a bhaint
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Sir, Conas is féidir liom aitheantais ríomhphoist cearta a bhaint as mo liosta ríomhphoist mar shampla thíos a.hamilton@tradsingapore.com.sg aarabest@emirates.com.net.ae admin@countrywide.com.my
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
ós rud é gur chabhraigh an fhoirmle go mór liom, shíl mé go roinnfinn mo thaithí. Rithim é i gcoinne liosta de na gréasán gréasáin html a bhíonn uaireanta chomh fada sin go dtagann earráidí san fhoirmle amach. De réir wikipedia is é 254 carachtar an fad uasta do sheoladh ríomhphoist agus mar sin feabhsaítear cobhsaíocht na feidhme nuair a chuirtear codanna lionsa(A1) in ionad 256 le 1: =TRIM(CEART(SUBSTITUTE(LEFT(A1,FIND (" ",A1&"", FIND ("@", A1))-256), "", REPT (" ", 256)), XNUMX))
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ar fheabhas, iontach. ní mór do gach duine a úsáid ..
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Más mian liom seoladh ríomhphoist amháin a bhaint as A1, déanann an fhoirmle seo amhlaidh agus ní thuairiscíonn sé ach bán, ní earráid, mura bhfuil aon seoladh ríomhphoist in A1. Braithim gur réiteach níos éasca é seo ná iarracht a dhéanamh na scripteanna seo go léir a mháistir, agus ní chosnaíonn sé rud ar bith. =IFERROR(TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND"" ",A1&" ",FIND("@",A1))-1), ",REPT("",LEN(A1))), LEN(A1))),"")
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Thar a bheith cabhrach. Go raibh míle maith agat!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Eolas den scoth! Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá Excel 2007 á úsáid agam ar HP. Má tá Melanie Brown in A1 agat agus más mian leat Melanie.Brown@gmail.com a léamh sa chill chéanna, conas a dhéanfaidh tú é seo? Tá teaghrán manes agam le déanamh ar an mbealach céanna. An gcuideoidh duine éigin liom le seo?
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL