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 al usar 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. Esto puede funcionar para la pantalla, pero a los datos subyacentes todavía les faltan los ceros iniciales. Una mejor solución es utilizar 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 (2598) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

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