Print only alphabets of a string

Question

I have a string , from which i want to chech whether each element is an alphabet a number a "." or a "/" and print only alphabets of the string?

Answer 1

This rather inelegant combination of two functions would do it:

Function strip_non_alpha_words(sentence As String) As String
Dim wrd_to_check As String
For Each wrd In Split(sentence, " ")
    wrd_to_check = wrd
    If wrd_to_check = alpha_only(wrd_to_check) Then
        strip_non_alpha_words = strip_non_alpha_words & wrd_to_check & " "
    End If
Next
strip_non_alpha_words = Trim(strip_non_alpha_words)
End Function

Function alpha_only(mixedStr As String) As String
Dim ltr As Long, ascii_code As Long
For ltr = 1 To Len(mixedStr)
    ascii_code = Asc(UCase(Mid(mixedStr, ltr, 1)))
    If (ascii_code > 64 And ascii_code <= 90) Then
        alpha_only = alpha_only & Mid(mixedStr, ltr, 1)
    End If
Next
End Function

You can use this in a formula (UDF) like so:

=strip_non_alpha_words(A1)