Falls Sie einen Prozess benötigen, der Ihnen beim Abrufen der E-Mail-Adresse aus der Zeichenfolge hilft, ist dieser Artikel für Sie. In diesem Artikel erstellen wir UDF, um die E-Mail-ID aus dem Text zu ziehen.
Frage): Meine Daten enthalten zu viele Informationen im Textformat. Ich möchte, dass ein VBA-Code mir hilft, so viele E-Mail-IDs aus dem Text zu extrahieren, um meinen manuellen Aufwand zu minimieren.
Wir müssen die folgenden Schritte ausführen:
- Klicken Sie auf die Registerkarte Entwickler
- Wählen Sie in der Gruppe Code die Option Visual Basic . aus
Geben Sie im Standardmodul folgenden Code ein:
Funktion ExtractEmailFromText(s As String) As String Dim AtTheRateSignSymbol As Long Dim i As LongDim TempStr als String
Const CharList As String = "[A-Za-z0-9._-]"
AtTheRateSignSymbol = InStr(s, "@")
Wenn AtTheRateSignSymbol = 0 Dann
ExtractEmailFromText = ""
Anders
TempStr = ""
Für i = AtTheRateSignSymbol - 1 zu 1 Schritt -1
If Mid(s, i, 1) Like CharList Then
TempStr = Mid(s, i, 1) & TempStr
Anders
Beenden für
Ende Wenn
Als nächstes
Wenn TempStr = "" Dann Funktion beenden
TempStr = TempStr & "@"
Für i = AtTheRateSignSymbol + 1 To Len(s)
If Mid(s, i, 1) Like CharList Then
TempStr = TempStr & Mid(s, i, 1)
Anders
Beenden für
Ende Wenn
Als nächstes
Ende Wenn
If Right(TempStr, 1) = "." Dann TempStr = _
Links(TempStr, Len(TempStr) - 1)
ExtractEmailFromText = TempStr
Endfunktion
- In Zelle B2 lautet die Formel
- =EmailFromText extrahieren(A2)
Das Ergebnis bekommen wir. Siehe folgenden Schnappschuss:
Der obige Code extrahiert die erste E-Mail-Adresse, falls mehr als eine E-Mail-ID in einer Zelle vorhanden ist.
Auf diese Weise können wir E-Mails aus Text abrufen.
Herunterladen - E-Mail-Adresse aus Text extrahieren - xlsm