¿Cómo extraer el código postal de una lista de direcciones en Excel?
Al gestionar información de clientes en Excel, es habitual contar con una lista de direcciones completas en la que cada entrada incluye tanto los datos de la vía como un código postal (ZIP). Si necesita aislar y extraer únicamente los códigos postales de estas direcciones —por ejemplo, para listas de correo electrónico, análisis regional o formateo de datos— hacerlo manualmente, uno por uno, puede resultar tedioso y propenso a errores, especialmente con grandes volúmenes de datos. Afortunadamente, Excel ofrece métodos prácticos para extraer múltiples códigos postales de forma rápida, eficiente y sin esfuerzo manual. Este artículo le guía paso a paso en la extracción de códigos postales desde direcciones mediante una fórmula de Excel y una solución basada en macros VBA.
Extraer código postal con fórmula en Excel
Extraer código postal con una función definida por el usuario en Excel
Extraer código postal con fórmula en Excel
En muchas listas de direcciones habituales, el código postal aparece al final de la cadena de dirección y no supera los 8 caracteres. Este método resulta más adecuado cuando todas las direcciones de su lista siguen un formato coherente y el código postal figura como último elemento en cada dirección, separado por espacios.
Para extraer rápidamente el código postal mediante una fórmula, siga estos pasos:
1. Seleccione una celda vacía donde quiera que aparezca el código postal (por ejemplo, B1 si su dirección está en A1) e introduzca la siguiente fórmula:
=MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1))2. Pulse la tecla Entrar. El código postal de la dirección en A1 se mostrará en la celda seleccionada.
3. Para aplicar esta fórmula a otras direcciones, selecciona la celda que contiene la fórmula y arrastra el controlador de relleno hacia abajo por la columna hasta cubrir todas las filas con direcciones; Excel extraerá automáticamente el código postal de cada una.
Consejo: Esta fórmula parte del supuesto de que el código postal es el último elemento tras el último espacio de la cadena de dirección. Si sus direcciones tienen una estructura distinta —por ejemplo, con códigos postales en medio o separados por comas—, es posible que esta fórmula no devuelva el resultado correcto. Para adaptar este método a códigos postales internacionales o a un formato personalizado, puede que necesite un enfoque de fórmula diferente o más avanzado, o bien probar la solución VBA que se muestra a continuación.
Extraer código postal con una función definida por el usuario en Excel
Si sus datos de direcciones son más complejos, inconsistentes o contienen códigos postales en distintos formatos y posiciones dentro de la cadena, como se muestra en la siguiente captura de pantalla, una macro de VBA puede ofrecer opciones de extracción mucho más flexibles. Este método automatizado procesa rápidamente una columna completa de direcciones para aislar y devolver únicamente los códigos postales, ahorrando un tiempo considerable y minimizando el esfuerzo manual.
1. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de VBA, haga clic en Insertar > Módulo para crear un nuevo módulo. Copie y pegue el siguiente código VBA en la ventana del módulo:
Public Function ExtractPostcode(text As String) As String
Dim reg As New RegExp
Dim m As MatchCollection
reg.Pattern = "\b([A-Z]{1,2}\d{1,2}[A-Z]?\s*\d[A-Z]{2}|\d{5}(?:-\d{4})?|\d{6})\b"
reg.IgnoreCase = True
reg.Global = False
If reg.Test(text) Then
Set m = reg.Execute(text)
ExtractPostcode = m(0).Value
Else
ExtractPostcode = ""
End If
End Function3. Tras pegar el código, en la ventana del editor de VBA, seleccione Herramientas > Referencias. Vea la captura de pantalla:
4. En el cuadro de diálogo Referencias, active la casilla Microsoft VBScript Regular Expressions 5,5 y haga clic en Aceptar.
5. Vuelva a la hoja de cálculo e introduzca esta fórmula: =ExtractPostcode(A2). A continuación, arrastre el controlador de relleno hacia abajo para aplicarla al resto de celdas. ¡Los códigos postales aparecerán al instante! Consulte la captura de pantalla:
Consejo: Con este código, podrá extraer automáticamente códigos postales de cualquier país o región en Excel en apenas unos segundos. Simplemente ajuste la expresión regular para que coincida con las reglas del código postal de su área objetivo y podrá adaptarse rápidamente a distintos formatos —como el británico «SW1A 1AA», el estadounidense «12345-6789» o el chino «100000»—, lo que aumentará notablemente la eficiencia en la limpieza y el análisis de sus datos.
Artículos relacionados:
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos