recebo email com os dados de meus clientes e preciso colar em uma celula do excel, gostaria de uma formula que separase o numero do texto, lembrando que cada rua tem uma quantidade de caracteres diferente da outra e não são separados por virgula ou dois pontos, queria uma formula que localiza-se o primerio numero do texto e me informasse o texto a esquerda do numero em uma celula e o texto a direto do numero em outra celula.
nao gostaria de criar macro..
Atualizada:preciso de uma formula que localize o primeiro numero de um texto tentei com a expressão énúm porem nao consegui..
Copyright © 2024 QUIZLIB.COM - All rights reserved.
Answers & Comments
Verified answer
RF, e como a fórmula vai diferenciar o número de um número que é nome, tipo:
Rua 13 de maio 100
Rua 13 de maio 100 ap 21 bl 2 torre 11
Rua 9 de Julho, 1241-75
Estas fórmulas retornam o primeiro número encontrado:
Numa planilha em que o endereço inteiro esteja na coluna A, iniciando na linha 3, digite em F2:
onde tem o 1º número
Em G2 digite "espaço".
Em H2 digite "número".
Em F3:
=MÍNIMO(SEERRO(LOCALIZAR("0";A3);999); SEERRO(LOCALIZAR("1";A3);999); SEERRO(LOCALIZAR("2";A3);999); SEERRO(LOCALIZAR("3";A3);999); SEERRO(LOCALIZAR("4";A3);999); SEERRO(LOCALIZAR("5";A3);999); SEERRO(LOCALIZAR("6";A3);999); SEERRO(LOCALIZAR("7";A3);999); SEERRO(LOCALIZAR("8";A3);999); SEERRO(LOCALIZAR("9";A3);999))
Em G3:
=PROCURAR(" ";A3;F3)
Em H3:
=SEERRO(EXT.TEXTO(A3;F3;G3-F3)+0; DIREITA(A3;NÚM.CARACT(A3)-F3+1)+0)
ótima fórmula. valeu.
a resposta do Jesão tá certíssima e considerando as limitações que você colocou ao não usar macro, é o melhor que pode ser feito. Observe como a fórmula é complexa; Mesmo assim, não trata a situação de nomes de rua que tem número.
Já se usasse macro ficaria algo assim
=numero_casa( a1 )
simples.
Function numero_casa(endereco As String) As Double
walg = 0
wnumero = 0
For i = Len(endereco) To 1 Step -1
pedaco = Mid(endereco, i, 1)
If pedaco = " " Then Exit For
If pedaco >= "0" And pedaco <= "9" Then
wnumero = wnumero + pedaco * (10 ^ walg)
walg = walg + 1
End If
Next
numero_casa = wnumero
End Function
tecle alt-f11 vá em inserir módulo e taque essa função aí.
Use-a como descrito lá em cima