Jei norite, kad procesas padėtų jums nuskaityti el. Pašto adresą iš eilutės, šis straipsnis skirtas jums. Šiame straipsnyje mes sukursime UDF, kad ištrauktume el. Pašto ID iš teksto.
Klausimas): Mano turimuose duomenyse yra per daug informacijos teksto formatu. Noriu, kad VBA kodas padėtų man iš teksto išgauti kuo daugiau el. Pašto ID, kad būtų sumažintos mano rankinės pastangos.
Turime atlikti šiuos veiksmus:
- Spustelėkite skirtuką Kūrėjas
- Kodo grupėje pasirinkite „Visual Basic“
Į standartinį modulį įveskite šį kodą:
Funkcijos ekstraktasEmailFromText (s kaip eilutė) kaip eilutė Dim AtTheRateSignSymbol As Long Dim i As LongDim TempStr kaip eilutė
Const CharList As String = "[A-Za-z0-9 ._-]"
AtTheRateSignSymbol = InStr (s, "@")
Jei AtTheRateSignSymbol = 0 Tada
ExtractEmailFromText = ""
Kitas
TempStr = ""
Jei i = AtTheRateSignSymbol - nuo 1 iki 1 1 žingsnis
Jei vidurys (s, i, 1) patinka „CharList“
TempStr = vidurys (s, i, 1) ir TempStr
Kitas
Išeiti
Pabaiga Jei
Kitas I.
Jei TempStr = "" Tada išeikite iš funkcijos
TempStr = TempStr & "@"
I = AtTheRateSignSymbol + 1 Len (-ams)
Jei vidurys (s, i, 1) patinka „CharList“
TempStr = TempStr ir vidurys (s, i, 1)
Kitas
Išeiti
Pabaiga Jei
Kitas I.
Pabaiga Jei
Jei teisingai (TempStr, 1) = "." Tada TempStr = _
Kairė (TempStr, Len (TempStr) - 1)
ExtractEmailFromText = TempStr
Pabaigos funkcija
- B2 langelyje formulė yra
- = ExtractEmailFromText (A2)
Mes sulauksime rezultato. Žiūrėkite žemiau pateiktą momentinę nuotrauką:
Aukščiau pateiktas kodas ištrauks pirmąjį el. Pašto adresą, jei ląstelėje yra daugiau nei 1 el. Pašto adresas.
Tokiu būdu galime gauti el. Laiškus iš teksto.
Atsisiųsti - ištraukite el. Pašto adresą iš teksto - xlsm