Ja vēlaties, lai process palīdzētu jums izgūt e -pasta adresi no virknes, šis raksts ir domāts jums. Šajā rakstā mēs izveidosim UDF, lai izvilktu e -pasta ID no teksta.
Jautājums): Mani dati satur pārāk daudz informācijas teksta formātā. Es vēlos, lai VBA kods palīdzētu man no teksta iegūt tik daudz e -pasta ID, lai samazinātu manuālos centienus.
Mums jāveic šādas darbības:
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
Standarta modulī ievadiet šādu kodu:
Funkciju izrakstsE -pastsDim TempStr kā virkne
Const CharList As String = "[A-Za-z0-9 ._-]"
AtTheRateSignSymbol = InStr (s, "@")
Ja AtTheRateSignSymbol = 0 Tad
ExtractEmailFromText = ""
Citādi
TempStr = ""
I = AtTheRateSignSymbol - 1 līdz 1 1. darbība
Ja Mid (s, i, 1) Like CharList then
TempStr = Mid (s, i, 1) & TempStr
Citādi
Iziet uz
Beigas Ja
Tālāk i
Ja TempStr = "" Tad iziet no funkcijas
TempStr = TempStr & "@"
I = AtTheRateSignSymbol + 1 Len (-iem)
Ja Mid (s, i, 1) Like CharList then
TempStr = TempStr un vidus (s, i, 1)
Citādi
Iziet uz
Beigas Ja
Tālāk i
Beigas Ja
Ja pareizi (TempStr, 1) = "." Tad TempStr = _
Pa kreisi (TempStr, Len (TempStr) - 1)
ExtractEmailFromText = TempStr
Beigu funkcija
- Šūnā B2 formula ir
- = ExtractEmailFromText (A2)
Mēs iegūsim rezultātu. Skatiet zemāk esošo momentuzņēmumu:
Iepriekš minētais kods iegūs pirmo e -pasta adresi, ja šūnā ir vairāk nekā 1 e -pasta ID.
Tādā veidā mēs varam izgūt e -pasta ziņojumus no teksta.
Lejupielādēt - e -pasta adreses izvilkšana no teksta - xlsm