Wie extrahiere ich schnell eine E-Mail-Adresse aus einer Textzeichenfolge?
Wenn Sie einige E-Mail-Adressen aus dem Arbeitsblatt Website in Excel importieren, enthält dieser immer irrelevanten Text. Jetzt möchten Sie nur noch die reinen E-Mail-Adressen aus der Textzeichenfolge extrahieren (siehe folgende Screenshots). Wie können Sie schnell nur die E-Mail-Adressen aus dem Zellentext abrufen?
Extrahieren Sie die E-Mail-Adresse mit der Formel aus der Textzeichenfolge
Hier stelle ich Ihnen eine lange Formel vor, um nur die E-Mail-Adressen aus dem Text in Excel zu extrahieren. Bitte gehen Sie wie folgt vor:
1. Geben Sie in die benachbarte Zelle B1 diese Formel ein = TRIM (RECHTS (ERSATZ) A1))).
2. Dann drücken Enter Wählen Sie dann die Zelle B1 aus und ziehen Sie den Füllpunkt in den Bereich, in dem diese Formel enthalten sein soll. Die E-Mail-Adressen im Bereich wurden aus der Textzeichenfolge extrahiert. Siehe Screenshot:
Anmerkungen:
1. Die Interpunktion nach der E-Mail-Adresse wird ebenfalls extrahiert.
2. Wenn die Zellen keine E-Mail-Adressen enthalten, zeigt die Formel Fehlerwerte an.
3. Wenn eine Zelle mehr als eine E-Mail-Adresse enthält, extrahiert die Formel nur die erste Adresse.
Extrahieren Sie mehrere E-Mail-Adressen aus Textzeichenfolgen
Kutools for Excel E-Mail-Adresse extrahieren kann Ihnen helfen, die E-Mail-Adressen schnell und bequem aus den Textzeichenfolgen zu extrahieren. Klicken Sie hier, um Kutools für Excel herunterzuladen!
Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!
Extrahieren Sie die E-Mail-Adresse mit der benutzerdefinierten Funktion aus der Textzeichenfolge
Mit Ausnahme der obigen Formel kann eine benutzerdefinierte Funktion Ihnen auch dabei helfen, die E-Mail-Adresse aus der Textzeichenfolge abzurufen.
1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Modulfenster ein.
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. Speichern Sie dann den Code und geben Sie die Formel ein = ExtractEmailFun (A1) in einer angrenzenden leeren Zelle siehe Screenshot:
4. Und dann drücken Enter Wählen Sie mit der Taste die Zelle B1 aus und ziehen Sie den Füllpunkt in den Bereich, in dem Sie die Formel benötigen. Alle E-Mail-Adressen wurden aus dem Zellentext extrahiert. Siehe Screenshot:
Anmerkungen:
1. Wenn die Zellen keine E-Mail-Adressen haben, werden leere Zellen angezeigt.
2. Wenn eine Zelle mehr als eine E-Mail-Adresse enthält, werden alle E-Mails extrahiert.
Extrahieren Sie die E-Mail-Adresse aus der Textzeichenfolge mit VBA-Code
Wenn Sie der Meinung sind, dass die oben genannten Formeln für Sie problematisch sind, können Sie mit dem folgenden VBA-Code die E-Mail-Adressen auf einmal extrahieren.
1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet sich ein Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modulfenster.
VBA: E-Mail-Adressen aus Textzeichenfolge extrahieren
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. Dann drücken F5 Geben Sie im ausgeblendeten Dialogfeld einen Bereich ein, in dem Sie den VBA verwenden möchten (siehe Abbildung):
4. Dann klick OKund die E-Mail-Adressen wurden aus den ausgewählten Textzeichenfolgen extrahiert. Siehe Screenshots:
 |
 |
 |
Anmerkungen:
1. Wenn die Zellen nicht über die E-Mail-Adressen verfügen, werden leere Zellen angezeigt.
2. Alle E-Mails werden extrahiert, wenn sich mehr als eine E-Mail-Adresse in einer Zelle befindet.
3. Die extrahierten E-Mails decken die Originaldaten ab. Sichern Sie die Daten daher bei Bedarf zuerst.
Extrahieren Sie die E-Mail-Adresse mit Kutools for Excel mit einem Klick aus der Textzeichenfolge
Die oben genannten Methoden sehen für unseren Excel-Anfänger etwas kompliziert aus. Hier kann ich Ihnen ein schnelles und einfaches Tool empfehlen. Kutools for ExcelMit seinen E-Mail-Adresse extrahieren Dienstprogramm, können Sie die E-Mail-Adressen ohne großen Aufwand aus den Textzeichenfolgen extrahieren.
| Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
Wenn Sie installiert haben Kutools for ExcelBitte gehen Sie wie folgt vor:
1. Wählen Sie die Zellen aus, die die Textzeichenfolgen enthalten.
2. Klicken Sie Kutoolen > Text > E-Mail-Adresse extrahieren, siehe Screenshot:
3. Und ein E-Mail-Adresse extrahieren Das Dialogfeld wird angezeigt. Wählen Sie eine Zelle aus, in die Sie das Ergebnis einfügen möchten. Siehe Screenshot:
4. Dann klick OK Schaltfläche, alle E-Mail-Adressen wurden aus den Textzeichenfolgen extrahiert, siehe Screenshot:
Klicken Sie hier, um Kutools für Excel jetzt herunterzuladen und kostenlos zu testen!
Demo: Extrahieren Sie mit Kutools for Excel die E-Mail-Adresse aus der Textzeichenfolge
In Verbindung stehender Artikel:
Wie extrahiere ich Domains aus mehreren E-Mail-Adressen in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
