Hoe postcode uit adreslijst in Excel te extraheren?
Er is een lijst met volledige adressen, inclusief postcodes van uw klanten in Excel, en nu wilt u alleen de postcodes van deze adressen extraheren, heeft u een betere manier dan ze een voor een te extraheren? Hier vertel ik je de snelle manieren om meerdere postcodes tegelijk in Excel in massa te extraheren.
Extraheer postcode met formule in Excel
Extraheer postcode met VBA in Excel
Extraheer postcode met formule in Excel
In de meeste gevallen is de postcode niet langer dan 8 tekens.
Selecteer een lege cel en typ deze formule =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1 is de cel waaruit u de postcode wilt extraheren), druk op Enter en vul het gewenste bereik door de vulgreep te slepen. Nu kunt u zien dat alleen postcodes uit de lijst worden gehaald.
Extraheer postcode met VBA in Excel
Er is een VBA die postcodes snel van volledige adressen in Excel kan extraheren.
1. Selecteer een cel van de kolom die u wilt selecteren en druk op Alt + F11 om het Microsoft Visual Basic voor toepassingen venster.
2. Klik in het pop-upvenster op Invoegen > Moduleen plak vervolgens de volgende VBA-code in de module.
VBA: pak alleen postcodes uit
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 Sub
3. Dan klikken lopen en selecteer het bereik waaruit u alleen postcodes wilt extraheren. Zie screenshot:
4. klikken OK, kunt u zien dat de enige postcodes in het bereik zijn gereserveerd.
Opmerking:
(1) Als u de bovenstaande VBA uitvoert, worden uw originele gegevens gewijzigd, u kunt ze beter eerst kopiëren en opslaan.
(2) Deze VBA-macro kan de postcodes niet extraheren waarvan het eerste deel alleen letters bevat, zoals "1513 4th St NW, Washington, DC 20001".
Relatieve artikelen:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!