Wie extrahiere ich eine Postleitzahl aus der Adressliste in Excel?
Es gibt eine Liste der vollständigen Adressen einschließlich der Postleitzahlen Ihrer Kunden in Excel. Jetzt möchten Sie nur die Postleitzahlen aus diesen Adressen extrahieren. Haben Sie eine bessere Möglichkeit, als sie einzeln zu extrahieren? Hier erkläre ich Ihnen die schnellen Möglichkeiten, mehrere Postleitzahlen in Excel gleichzeitig massenweise zu extrahieren.
Postleitzahl mit Formel in Excel extrahieren
Postleitzahl mit VBA in Excel extrahieren
Postleitzahl mit Formel in Excel extrahieren
In den meisten Fällen darf die Postleitzahl nicht länger als 8 Zeichen sein.
Wählen Sie eine leere Zelle aus und geben Sie diese Formel ein =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1 ist die Zelle, aus der Sie die Postleitzahl extrahieren möchten), drücken Sie Enter Klicken Sie auf die Schaltfläche und füllen Sie den gewünschten Bereich, indem Sie den Füllgriff ziehen. Jetzt können Sie sehen, dass nur Postleitzahlen aus der Liste extrahiert werden.
Postleitzahl mit VBA in Excel extrahieren
Es gibt eine VBA, die Postleitzahlen in Excel schnell aus vollständigen Adressen extrahieren kann.
1. Wählen Sie eine Zelle der Spalte aus, die Sie auswählen möchten, und drücken Sie Alt + F11, um die zu öffnen Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie im Popup-Fenster auf Insert > ModulFügen Sie dann den folgenden VBA-Code in das Modul ein.
VBA: Nur Postleitzahlen extrahieren
Sub ExtractPostCode()
'Updateby20140512
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xValue = Split(Rng.Value, " ")
For i = LBound(xValue) To UBound(xValue)
If xValue(i) Like "[A-Z]*#*" Then
Rng.Value = xValue(i) & " " & xValue(i + 1)
Exit For
End If
Next
Next
End Sub3. Dann klick Führen Sie Klicken Sie auf die Schaltfläche und wählen Sie den Bereich aus, aus dem Sie nur Postleitzahlen extrahieren möchten. Siehe Screenshot:
4 Klicken OKkönnen Sie sehen, dass nur die Postleitzahlen im Bereich reserviert sind.
Hinweis:
(1) Wenn Sie den obigen VBA ausführen, werden Ihre Originaldaten geändert. Sie sollten sie zuerst kopieren und speichern.
(2) Dieses VBA-Makro kann keine Postleitzahlen extrahieren, deren erster Teil nur Buchstaben enthält, z. B. "1513 4th St NW, Washington, DC 20001".
Relative Artikel:
- Extrahieren Sie Initialen aus Namen in Excel
- Extrahieren Sie den Dezimalwert aus der Zeichenfolge 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!
