Quando si importano codici postali da un file di testo in una cartella di lavoro di Excel, non è raro che Excel traduca i valori come numeri anziché come codici postali. Ciò si traduce nell’eliminazione degli zeri iniziali dai codici postali, il che può ovviamente causare problemi in seguito utilizzando i dati per lo scopo previsto.

Una soluzione, ovviamente, consiste nel modificare semplicemente il formato di visualizzazione utilizzato per le celle del codice postale. Ciò potrebbe funzionare per la visualizzazione, ma i dati sottostanti mancano ancora degli zeri iniziali. Una soluzione migliore consiste nell’utilizzare una macro che attraversa e aggiunge zeri iniziali alle informazioni in una cella.

La seguente macro fa proprio questo:

Sub MakeZIPText()

Dim ThisCell As Range     Application.ScreenUpdating = False     'Make sure format is text     Selection.NumberFormat = "@"

For Each ThisCell In Selection         'Strip the leading apostrophe, if any         If Left(ThisCell, 1) = "'" Then             ThisCell = Mid(ThisCell, 2, 99)

End If         'It's a 5-digit ZIP Code         If Len(ThisCell) <= 5 Then             ThisCell = "'" & Right("00000" & ThisCell, 5)

Else             ThisCell = "'" & Right("00000" & ThisCell, 10)

End If     Next ThisCell     Application.ScreenUpdating = True End Sub

Per utilizzare la macro, seleziona semplicemente l’intervallo di celle contenente i codici postali, quindi esegui la macro. La macro modifica effettivamente il contenuto della cella: le celle non conterranno più valori numerici (la causa del problema originale), ma conterranno valori di testo. Ciò consente agli zeri iniziali di apparire all’inizio dei codici postali.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2598) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Aggiunta di zeri iniziali a codici postali.