Reemplazar todos los caracteres de una cadena de números

Hola Marta.

Puedes utilizar esta función (que quita todo lo que no sea un número de
la cadena):

Function quitaLetras(cadena)
Dim cadenaTemp
For i = 1 To Len(cadena)
If Asc(Mid(cadena, i, 1)) >H And Asc(Mid(cadena, i, 1)) <= 57 Then
cadenaTemp = cadenaTemp & Mid(cadena, i, 1)
End If
Next
quitaLetras = cadenaTemp
End Function

Marta Martín wrote:

Hola!

¿Alguien sabe como reemplazar de una cadena de caracteres que contiene
números y letras todas la letras de esa cadena?

Un saludo.

Marta.