Verified answer

nesse caso o melhor é criar uma função

Tecle alt-f11, vá em inserir, escolha módulo e digite o seguinte

Function sohnumero(texto As String) As String

Dim volta As String

Dim pedaco As String

volta = ""

For i = 1 To Len(texto)

pedaco = Mid(texto, i, 1)

If pedaco >= "0" And pedaco <= "9" Then volta = volta & pedaco

Next i

sohnumero = volta

End Function

Em feche o editor de macro

Suponha que na célula g4 tem o número "sujo"

em outra célula vc coloca a seguinte fórmula

=sohnumero(g4)

experimente

Acho que neste caso só com macro...

Ou então procure um editor tipo o Textpad, jogue essa coluna para lá e remova o texto usando expressão regular.

Nossa se quizer me mande por e-mail a tabela que eu vejo pra você

bleza