Como extrair CEP de um endereço completo no Excel?

Extrair o CEP de um endereço completo no Excel pode ser uma tarefa trabalhosa se feita manualmente, especialmente com grandes volumes de dados. Felizmente, com o uso de fórmulas de texto e expressões regulares, é possível automatizar este processo de forma rápida e precisa, economizando tempo e evitando erros humanos.

Pré-requisitos

• Ter o Microsoft Excel instalado (versão 2013 ou superior).
• Conhecimento básico de fórmulas do Excel.
• Para a opção avançada, habilitar macros VBA ou usar funções de usuário definidas.

Usando Fórmulas de Texto do Excel

O método mais simples e acessível para extrair o CEP de um endereço completo é usar uma combinação de funções de texto do Excel. O CEP no Brasil é sempre um número de 8 dígitos, geralmente escrito com hífen (XXXXX-XXX). Podemos usar a função REGEXEXTRACT (disponível no Excel 365) ou uma combinação de MID, SEARCH e LEN para localizar e extrair o CEP.

=SE(ÉNÚMERO(LOCALIZAR("-", A1)), SE(LEN(A1)-LOCALIZAR("-", A1)=3, SE(ÉNÚMERO(MID(A1, LOCALIZAR("-", A1)-5, 9)), MID(A1, LOCALIZAR("-", A1)-5, 9), ""), ""), "")

Esta fórmula procura pelo hífen no endereço, verifica se há 3 caracteres após ele (o padrão do CEP brasileiro), e extrai os 5 dígitos antes e os 3 depois do hífen. Se o CEP não for encontrado, retorna uma string vazia.

Usando VBA e Expressões Regulares

Para uma solução mais robusta e flexível, especialmente se você precisa processar muitos endereços ou lidar com formatos variados, você pode criar uma função personalizada no Excel usando VBA e expressões regulares. Este método é mais avançado, mas oferece maior precisão e adaptabilidade.

Function ExtrairCEP(endereco As String) As String
    Dim regEx As Object, matches As Object
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "\d{5}-\d{3}"
    regEx.Global = True
    If regEx.Test(endereco) Then
        Set matches = regEx.Execute(endereco)
        ExtrairCEP = matches(0)
    Else
        ExtrairCEP = ""
    End If
End Function

Para usar esta função, pressione ALT+F11 no Excel, insira um novo módulo, cole o código acima e feche o editor. Agora você pode usar a fórmula =ExtrairCEP(A1) em qualquer célula para extrair o CEP do endereço na célula A1.

Exemplo Prático

Veja como a fórmula funciona na prática:

Conclusão

Com estas técnicas, você pode extrair o CEP de um endereço completo no Excel de forma rápida e precisa, automatizando uma tarefa que normalmente seria manual e propensa a erros. Seja usando fórmulas nativas ou uma função personalizada em VBA, o resultado é um processo eficiente que economiza tempo e garante a integridade dos seus dados.