FUNÇÃO PERSONALIZADA EXTRAIR APENAS NÚMEROS

Esta função pode ser muito Útil pois extrai todo valor numérico de determinada célula que contenha texto com números juntos.

Copie esta macro e cole no módulo do VBA , vá em inserir função , função definida pelo usuário e pronto.

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