, hier, ik stel je een generaal van de formule van het e - mailadres van de winning van de tekst alleen in uitblinken.Doe het als volgt: 1.In de aangrenzende cellen B1, in deze formule = decoratie (rechts (ter vervanging van (links (A1, ("A1 &", het vinden van (@, A1)) - 1) ("", "", verslag van de len (A1))), len (A1))),,,,,,, 2.En dan, de invoer, de sleutel, en de keuze van de cel B1, sleept het vullen met deze formule op wil je.En het e - mailadres van de werkingssfeer van de tekst heeft gewonnen.Kijk 's:,,,,,,,,, noot: 1.E - mailadres interpunctie zal worden gewonnen.Als de cellen bevat geen e - mail, wordt de formule van de waarde van een fout.Als de cellen hebben van meer dan één e - mail, zal de eerste formule winning van adres.,,,,, de winning van het e - mailadres van de tekst en de definitie van de functies,, met uitzondering van bovenstaande formule, een gebruiker die functie kan ook helpen om de tekst van het e - mailadres van string.,,, 1.Op het Alt+F11, sleutels, het openstellen van Microsoft de visuele toepassing, het raam, 2.,,,.- steek, >, modules en de pasta in de module, de functie van macro - extractemailfun, raam. (extractstr string) als een string. 20130829 charlist vernieuwing van donkere fouten te herstellen checkstr = "[zou]. _" outstr = "index = 1, 1 = de VBA echt doen. Instrumenten (index, extractstr." @ ") getstr =" indien de index > P = 0 - 1 - 1 - 1 als stap 1 (extractstr, P. 1) zoals checkstr dan getstr = (extractstr, P. 1) & als getstr = getstr & getstr andere uitgang; @ P = 1 + 1 len (extractstr) als op middellange termijn (extractstr, P. 1) zoals checkstr danGetstr = getstr & op middellange termijn (extractstr, P. 1) de uitvoer van onder andere het einde als index = 1 + 1 = "" dan als outstr outstr = getstr andere outstr = outstr & CHR (10) & anders eindigt als de ring uit extractemailfun = outstr einde functies, getstr 3, aan het eind van het jaar.Dan redden we de code, in de formule = extractemailfun (A1), in de buurt van de lege cellen, een screenshot:,,,,,, 4.Dan druk je op de knop in,, de keuze van de cel B1, sleept het vullen van de formule van op een afstand van je nodig.En alle e - mail in de tekst uit de cel heeft gewonnen.Kijk 's:,,,,,,,,, noot: 1.Als er geen e - mail, zal het een lege cel.Als de cellen hebben van meer dan één e - mail, alle e - mail worden ontleend.,,,,, de winning van de VBA per e - mail tekst. De code, als je denkt dat de bovenstaande formule is lastig, onder de VBA code kan je helpen in de winning van het e - mailadres.,,, 1.Op het Alt+F11, sleutels, het openen van een visuele toepassingen, Microsoft, raam.,,, 2.- steek, >, modules en paste de volgende, module ramen, macro -.,,, de VBA: winning van tekst,,, e - mail, zoon extractemail () het bijwerken van de schemering workrng 20130829 in het bereik van de donkere charlist voor een reeks fouten te herstellen xtitleid = "kutoolsforexcel" workrng = toepassing van de keuze die workrng. = van toepassing. Inputbox ("Werkingssfeer", xtitleid, workrng. Adres: = 8) = workrng. Waarde checkstr = "[zou]. _ -" i = 1, UBound (ARR, 1 = 1, UBound (ARR), 2) extractstr = arr (I, J) outstr = "index = 1 - index = doen waar de VBA. Instrumenten (index, extractstr" @ ") getstr =" indien de index > 0.R P = 1 - 1 - 1 als stap 1 (extractstr, P. 1) zoals checkstr dan getstr = (extractstr, P. 1) & als getstr = getstr & getstr andere uitgang; @ P = 1 + 1 len (extractstr) als op middellange termijn (extractstr, P. 1), zoals checkstr dan getstr = getstr & op middellange termijn (extractstr, P. 1) de uitvoer van onder andere het einde als index = 1 + 1 = "" dan als outstr outstr = getstr andereOutstr = outstr & CHR (10) & anders uit als de ring aan het einde van het ARR (I, J) aan het einde van de volgende workrng getstr = outstr. = arr - terminals,,, 3.En de pers F5, het uitvoeren van deze code, je moet kiezen voor een reeks in de POP - up, je moet de dialoog met VBA: screenshot,,,,,,,,, 4.En daarna, en de tekst van de geselecteerde winning van e - mail.Zie noot:,,.:,, 1.Als de cellen geen e - mail, en het zal de cellen leeg, 2.Alle e - mails worden ontleend, indien er meer dan één e - mail in een cel, 3.De e - mail van de winning van dekking van de oorspronkelijke gegevens, dus als je back - up nodig gegevens beter. Volgens een,,,,,,, Excel, winning van het e - mailadres van kutools tekst, voor de bovengenoemde methodes ziet er ingewikkeld uit, onze Excel beginners, hier, ik kan u een handige instrumenten voor de winning, kutools Excel, e - mail, praktisch kan worden gewonnen uit de tekst, het e - mailadres touw is niet veel voor nodig om kutools Excel,.,,, meer dan 120: Excel - gemak, kunnen proberen om in de 60 dagen zonder beperkingen.En nu krijgt het.Gratis te downloaden, 60 dayspurchase, paypal /mycommerce, als je zijn geïnstalleerd, kutools Excel, zijn als volgt: (,, alsjeblieft, doe het gratis downloaden van kutools goed nu,,,,, 1).De keuze van de cel bevat de tekst. Dat.Klik, kutools, > >,, tekst, e - mail: winning, een screenshot,,,,,, 3.Een e - mail adres, de winning, de dialoog, de keuze van een cel, wil je de resultaten, een screenshot:,,,,,, 4.En druk op de knop, en alle e - mail adressen van tekst, zie schoten: winning,,,,,, gratis downloaden kutools goed nu,,,,