Boa-tarde,
Eu pesquisei esse código, espero que te ajude.

Situação:

A1______________ B1_____________C1
Maria R$135,00

Aplicação:

Formula da B1_____________ Formula da C1
=DIREITA(A1;8)__________ =ESQUERDA(A1;5)

Resultado:

___A1_______________ B1___________ C1
MariaR$135,00_____ R$135,00________ Maria

Explicação:

=DIREITA(A1;8) ===> Direita (de onde começa a contar, a direção da informação dentro da célula exe: Maria R$135,00, se digo direita começa a contar a partir do numero ZERO;

A1 ==> Celula onde está o alvo;

8==> Número da casas que ele extrairá, se conf para OITO, então ele pegará do ZERO ate o R

=ESQUERDA(A1;5) ===> de onde começa a contar, a direção da informação dentro da célula exe: Maria R$135,00, se digo esquerda começa a contar a partir da letra M;

A1 ==> Celula onde está o alvo;

5==> Número da casas que ele extrairá, se conf para CINCO, então ele pegará do M ate o A.

_Will_,

Boa tarde!

Veja se pode ser assim. Observe, na coluna C, a função definida pelo usário (UDF) ExtraiNumeros que fiz.

Boa tarde.

Eu utilizo este código que achei na rede.

Public Function lfRetiraNumeros(ByVal vValor As String) As String
Application.Volatile
Dim vQtdeCaract As Long
Dim vControle As Boolean
vQtdeCaract = Len(vValor)
vControle = False
For i = 1 To vQtdeCaract
If IsNumeric(Mid(vValor, i, 1)) Then
If vControle = True And lfRetiraNumeros <> vbNullString Then
lfRetiraNumeros = lfRetiraNumeros + " "
End If
vControle = False
lfRetiraNumeros = lfRetiraNumeros & Mid(vValor, i, 1)
Else
vControle = True
End If
Next
lfRetiraNumeros = Replace(Trim(lfRetiraNumeros), " ", "/")
End Function

Apertar Alt+F11 -> inserir Módulo e colar o código.

Ai vc utiliza a fórmula =lfRetiraNumeros()

Se o texto da célula estiver:

"Porca cod 123 4566" será extraído 123/4566 ai vc pode aplicar o substituir
"Borracha cod. 458 777 8 modelo LTX" será extraído 458/777/8

Obrigado pessoal!!

Resolvido!!!