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ò comporta l’eliminazione degli zeri iniziali dai codici postali, il che può ovviamente causare problemi in seguito quando si utilizzano i dati per lo scopo previsto.

Una soluzione, ovviamente, consiste nel modificare semplicemente il formato di visualizzazione utilizzato per le celle del codice postale. (Excel fornisce un formato speciale per i codici postali, disponibile tramite la scheda Numero della finestra di dialogo Formato celle.) Potrebbe funzionare per la visualizzazione, ma i dati sottostanti non hanno ancora gli zeri iniziali.

Se si desidera che i dati sottostanti includano effettivamente gli zeri iniziali, è meglio utilizzare una macro che attraversi e aggiunga 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 (9663) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui:

Aggiunta di zeri iniziali ai codici postali.