Filtrar letras de numeros

disculpa, quiero dejar solo los numeros, quitar las letras

"Ivan" escribió en el mensaje news:

Hola a todos, agradeceria de antemano su ayuda, tengo una serie de datos, los
cuales tienen insertadas algunas letras, no se como filtrarlas , por ejemplo
.1234-1102
b142-23-23
$124232
12-12-44casa
agradesco de antemano su comentario
Ivan

Una posibilidad podría ser usar una función personalizada:

Function QuitarLetras(rngCelda As Range) As Long
Dim n As Integer
For n = 1 To Len(rngCelda.Value)
If IsNumeric(Mid(rngCelda.Value, n, 1)) Then QuitarLetras = QuitarLetras & Mid(rngCelda.Value, n, 1)
Next n
End Function

La sintaxis sería:

=QuitarLetras(Celda)

Un saludo.


Fernando Arroyo
MS MVP - Excel

Gracias fernando