EXTRAIR SOMENTE Nºs DE CÉLULA EXCEL

[LAROZA]

Caros

Existe alguma função no excel 2003 que possibilita a extração de somente os números de uma sequência aleatória alfanumérica contida em uma ou mais células?

Grato!

[Patropi]

Boa noite LAROZA

Esta fórmula retorna só só números de uma célula com números e textos.

=SE(E(CÓDIGO(A2)>=48;CÓDIGO(A2)<=57);A2;"")

e esta fórmula retornar só texto: =SE(E(CÓDIGO(A2)>=48;CÓDIGO(A2)<=57);"";A2)

Dê retorno

Abraços

[Mazzaropi]

Caro Patropi, Boa Noite.

Qual seria o resultado desta fórmula se na célula A2 tivesse abc123def45ghi6789jklmn0 ?

Tentei aqui e não obtive o resultado esperado.

Acho que cometí algum engano.

Estava esperando receber 1234567890 como resultado.

[Obadia]

Caros

Existe alguma função no excel 2003 que possibilita a extração de somente os números de uma sequência aleatória alfanumérica contida em uma ou mais células?

Grato!

Caro amigo Laroza,

Veja se é isso que você quer:

http://www.4shared.com/file/zM8E5adj/extrairnumero.html

abraços,

[Patropi]

Boa noite Mazzaropi

Falha minha eu entendi errado o que ele queria

Estas fórmulas na verdade servem para separar números ou texto, mas funciona assim: Por exemplo se na coluna A tem linha com números e outras linhas com texto, na coluna B você coloca uma das fórmulas e ela copia ou só o texto ou só o número , conforme a fórmula que você optar.

Abraços

[Mazzaropi]

Caro Patropi, Boa Noite.

Agora eu entendí.

Obrigado pelo esclarecimento.

Vou guardá-las aqui, porque com certeza serão úteis.

Abraços,

[LAROZA]

Boa noite LAROZA

Esta fórmula retorna só só números de uma célula com números e textos.

=SE(E(CÓDIGO(A2)>=48;CÓDIGO(A2)<=57);A2;"")

e esta fórmula retornar só texto: =SE(E(CÓDIGO(A2)>=48;CÓDIGO(A2)<=57);"";A2)

Dê retorno

Abraços

Caro Patropi

Grato pela Ajuda, porém o resultado que necessito é aquela citado pelo Mazzaropi, ou seja, "A2 = AP 11 - RESID. DELL PIANO - BL. A" o resultado obtido pela fórmula em B2 seria "11".

Valeu!

[LAROZA]

Caros

Resolvido através do VBA:

Function LetterOut(rng As Range)

Dim Ret As String

Dim i As Integer

For i = 1 To Len(rng)

If Asc(Mid(rng.Value, i, 1)) >= 48 And Asc(Mid(rng.Value, i, 1)) <= 58 Then

Ret = Ret & Mid(rng.Value, i, 1)

End If

Next i

LetterOut = Ret

End Function

Valeu!

[Patropi]

Boa tarde Laroza

Se você tivesse colocado o texto

"A2 = AP 11 - RESID. DELL PIANO - BL. A" o resultado obtido pela fórmula em B2 seria "11".,

na tua primeira postagem eu teria entendido o que você queria e teria dado a fórmula certa. Mas aí vai a fórmula:

=EXT.TEXTO(A2;CORRESP(VERDADEIRO;ÉNÚM(1*EXT.TEXTO(A2;LIN($1:$100);1));0);3)

Como é uma fórmula matriacial, em vez de ENTER, dê CTRL+SHIFT+ENTER

Abraços

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.