Extraer Letras en Excel mediante una UDF

Insertamos un módulo en el VBAProject (PERSONAL.XLSB)

Si deseamos que la UDF este disponible para emplearse en cualquier Libro.

Insertamos un módulo en el VBAProject del Libro en Uso

Si deseamos que la UDF este disponible únicamente para emplearse en un libro en especifico. Para identificarlo este lleva el mismo nombre del archivo y una vez que se escriba el código, el archivo debe guardarse como Libro de Excel habilitado para macros.

Copiamos el siguiente código:

Function ExtraerLetras(Texto As String) As String

    Dim ltr As String, i As Integer, cdg As Integer

    For i = 1 To Len(Texto)

        cdg = Asc(Mid(Texto, i, 1))

        If (cdg >= 65 And cdg <= 90) Or (cdg >= 97 And cdg <= 122) Then

            ltr = ltr & Chr(cdg)

        End If

    Next i

    ExtraerLetras = ltr

End Function

Pegamos y Guardamos el código:

Buscamos la función como: "ExtraerLetras"