Vai al contenuto principale

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


freccia blu freccia destra 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.


freccia blu freccia destra 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 Sub

3. 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

Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

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...

scheda kte 201905


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!

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations