Extrair número de células que não seguem um mesmo padrão


#1

Boa tarde amigos,

Estou com um problema cujo não consigo encontrar solução.

Necessito extrair apenas os números das células, porém as mesmas encontram-se fora de padrão e não facilita e extração por nenhuma fórmula que conheço, como a ext.texto e enum. Por exemplo, as células que preciso extrair são “3 elefantes”, “quantidade de girafas 20”, “possui-se 15 tigres”, etc…

Como podem ver pelo exemplo, preciso extrair apenas os números, porém os mesmos encontram-se em posições diferentes do texto e possuem diferentes referenciais. Gostaria de pedir a ajuda de Vossos colegas para sanar a situação.


#2

Boas,

vê se isto resolve o teu problema.

Function RetirarNumero(Texto As String)
Dim x As Integer
Dim y As Integer
Dim z As String
For x = Len(Texto) To 1 Step -1
If IsNumeric(Mid(Texto, x, 1)) Then
y = y + 1
z = Mid(Texto, x, 1) & z
End If
If y = 1 Then z = CInt(Mid(z, 1, 1))
Next x
RetirarNumero = CLng(z)
End Function


#3

Post cruzado
em http://gurudoexcel.com/forum/viewtopic.php?f=9&t=7512
em http://www.planilhando.com.br/forum/viewtopic.php?f=20&t=29191

Decio