Come estrarre il codice postale dall'elenco di indirizzi in Excel?
Esiste un elenco di indirizzi completi inclusi i codici postali dei tuoi clienti in Excel e ora vuoi estrarre solo i codici postali da questi indirizzi, hai un modo migliore che estrarli uno per uno? Qui, ti dico i modi rapidi per estrarre in massa più codici postali solo alla volta in Excel.
Estrai il codice postale con la formula in Excel
Estrai il codice postale con VBA in Excel
Estrai il codice postale con la formula in Excel
Nella maggior parte dei casi, il codice postale non supera gli 8 caratteri.
Seleziona una cella vuota e digita questa formula =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1 è la cella da cui si desidera estrarre il codice postale), premere entrare pulsante e riempire l'intervallo desiderato trascinando la maniglia di riempimento. Ora puoi vedere solo i codici postali estratti dalla lista.
Estrai il codice postale con VBA in Excel
C'è un VBA che può estrarre rapidamente i codici postali da indirizzi completi in Excel.
1. Selezionare una cella della colonna che si desidera selezionare e premere Alt + F11 per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nella finestra a comparsa, fare clic su inserire > Moduli, quindi incolla il seguente codice VBA nel modulo.
VBA: estrai solo i codici postali
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. Quindi fare clic Correre e seleziona l'intervallo da cui desideri estrarre solo i codici postali. Vedi screenshot:
4. Clic OK, puoi vedere gli unici codici postali riservati nell'intervallo.
Nota:
(1) L'esecuzione del VBA di cui sopra cambierà i tuoi dati originali, faresti meglio a copiarli e salvarli prima.
(2) Questa macro VBA non è in grado di estrarre i codici postali la cui prima parte contiene solo lettere, ad esempio "1513 4th St NW, Washington, DC 20001".
Articoli relativi:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
