Como extrair o código postal da lista de endereços no Excel?
Existe uma lista de endereços completos incluindo códigos postais de seus clientes no Excel, e agora você deseja extrair apenas os CEPs desses endereços, há alguma maneira melhor do que extraí-los um por um? Aqui, eu conto a você as maneiras rápidas de extrair em massa vários CEPs de uma vez no Excel.
Extraia código postal com fórmula no Excel
Extraia o código postal com VBA no Excel
Extraia código postal com fórmula no Excel
Na maioria dos casos, o código postal não tem mais de 8 caracteres.
Selecione uma célula em branco e digite esta fórmula =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1 é a célula da qual deseja extrair o código postal), pressione Entrar botão e preencha o intervalo desejado arrastando a alça de preenchimento. Agora você pode ver apenas os códigos postais extraídos da lista.
Extraia o código postal com VBA no Excel
Existe um VBA que pode extrair códigos postais de endereços completos rapidamente no Excel.
1. Selecione uma célula da coluna que deseja selecionar e pressione Alt + F11 para abrir o Microsoft Visual Basic para Aplicações janela.
2. Na janela pop-up, clique em inserção > Móduloe cole o seguinte código VBA no módulo.
VBA: extrair apenas códigos postais
Sub ExtractPostCode()
'Updateby20140512
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xValue = Split(Rng.Value, " ")
For i = LBound(xValue) To UBound(xValue)
If xValue(i) Like "[A-Z]*#*" Then
Rng.Value = xValue(i) & " " & xValue(i + 1)
Exit For
End If
Next
Next
End Sub
3. Então clique Execute e selecione o intervalo do qual deseja extrair apenas os CEPs. Veja a imagem:
4. Clique OK, você pode ver que apenas os CEPs estão reservados no intervalo.
Observação:
(1) Executar o VBA acima mudará seus dados originais, é melhor copiá-los e salvá-los primeiro.
(2) Esta macro VBA não é capaz de extrair os códigos postais cuja primeira parte contém apenas letras, como “1513 4th St NW, Washington, DC 20001”.
Artigos relativos:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!