Como extrair o código postal da Lista de Endereços no Excel?
Ao gerir informações de clientes no Excel, é comum encontrar uma lista de endereços completos em que cada entrada inclui tanto os dados da morada como o respetivo código postal (CEP). Caso precise de isolar e extrair apenas os códigos postais — por exemplo, para criar uma lista de e‑mails, realizar uma análise regional ou formatar dados — fazê-lo manualmente, um a um, pode tornar-se tedioso e propenso a erros, especialmente com conjuntos de dados extensos. Felizmente, o Excel oferece métodos práticos para extrair múltiplos códigos postais de forma rápida, eficiente e sem esforço manual. Este artigo apresenta instruções passo a passo para extrair códigos postais de endereços utilizando uma fórmula do Excel e uma solução com macro VBA.
Extrair código postal com fórmula no Excel
Extrair código postal com Função Definida pelo Utilizador no Excel
Extrair código postal com fórmula no Excel
Em muitos Lista de Endereços comuns, o código postal encontra-se no final da cadeia do endereço e não tem mais de 8 caracteres. Este método é mais adequado quando todos os endereços da sua lista seguem um formato consistente e o código postal surge como o último elemento de cada endereço, separado por espaços.
Para extrair rapidamente o código postal utilizando uma fórmula, siga estes passos:
1. Selecione uma célula vazia onde pretenda que o código postal apareça (por exemplo, B1, se o seu endereço estiver em A1). Introduza a seguinte fórmula:
=MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1))2. Prima a tecla Enter. O código postal do endereço em A1 será apresentado na célula selecionada.
3. Para aplicar esta fórmula a outros endereços, selecione a célula com a fórmula e arraste a alça de preenchimento para baixo ao longo da coluna até abranger todas as linhas de endereços — o Excel extrairá automaticamente o código postal de cada um.
Dica: Esta fórmula parte do princípio de que o código postal é o último elemento após o último espaço na cadeia do endereço. Se os seus endereços tiverem uma estrutura diferente — por exemplo, com códigos postais no meio ou separados por vírgulas — esta fórmula poderá não devolver o resultado correto. Para adaptar este método a códigos postais internacionais ou a formatos personalizados, poderá precisar de uma fórmula diferente ou mais avançada, ou experimentar a solução VBA abaixo.
Extrair código postal com Função Definida pelo Utilizador no Excel
Se os seus dados de endereços forem mais complexos, inconsistentes ou incluírem códigos postais em formatos e posições variadas dentro da cadeia — como ilustrado na imagem seguinte —, uma macro VBA oferece opções de extração mais flexíveis. Este método automatizado processa rapidamente uma coluna inteira de endereços para isolar e devolver apenas os códigos postais, poupando tempo significativo e reduzindo o esforço manual.
1. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do VBA, clique em Inserir > Módulo para criar um novo módulo. Copie e cole o seguinte código VBA na janela do 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. Após colar o código na janela do editor VBA, selecione Ferramentas > Referências. Veja a imagem:
4. Na caixa de diálogo Referências, marque a opção Microsoft VBScript Regular Expressions 5,5 e clique em OK.
5. Regresse à folha de cálculo e introduza esta fórmula: =ExtractPostcode(A2), arrastando a alça de preenchimento para as restantes células. Todos os códigos postais aparecem imediatamente, tal como ilustrado na imagem:
Dica: Com este código, pode extrair automaticamente códigos postais de qualquer país ou região no Excel em poucos segundos — basta ajustar a expressão regular às regras dos códigos postais da sua área-alvo. Adapte-se rapidamente a diferentes formatos, como o «SW1A 1AA» do Reino Unido, o «12345-6789» dos EUA ou o «100000» da China, e aumente consideravelmente a eficiência na limpeza e análise dos seus dados.
Artigos Relacionados:
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos