Cuando importa códigos postales desde un archivo de texto a un libro de Excel, no es raro que Excel traduzca los valores como números en lugar de como códigos postales. Esto da como resultado que los ceros a la izquierda se eliminen de los códigos postales, lo que obviamente puede causar problemas más adelante cuando se utilizan los datos para el propósito previsto.

Una solución, por supuesto, es simplemente cambiar el formato de visualización utilizado para las celdas del código postal. (Excel proporciona un formato especial para códigos postales, disponible a través de la pestaña Número del cuadro de diálogo Formato de celdas). Esto puede funcionar para la pantalla, pero a los datos subyacentes todavía les faltan los ceros iniciales.

Si desea que los datos subyacentes incluyan realmente los ceros iniciales, es mejor usar una macro que pase y agregue ceros iniciales a la información de una celda. La siguiente macro hace precisamente eso:

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

Para usar la macro, simplemente seleccione el rango de celdas que contienen los códigos postales, luego ejecute la macro. La macro realmente cambia el contenido de la celda; las celdas ya no contendrán valores numéricos (la causa del problema original), pero contendrán valores de texto. Esto permite que los ceros iniciales aparezcan al comienzo de los códigos postales.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (9663) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Adding_Leading_Zeroes_to_ZIP_Codes [Agregar ceros a la izquierda a los códigos postales].