Pull out e-mail addresses only in Excel

Just a shot snippet of code to pull out e-mail addresses only, it works as a function in excel so you can write it as a function in excel.

Function AlphaNumericOnly(strSource As String) As String
    Dim i As Integer
    Dim strResult As String

    For i = 1 To Len(strSource)
        Select Case Asc(Mid(strSource, i, 1))
            Case 48 To 57, 65 To 90, 97 To 122, 64, 46: 'include 32 if you want to include space
                strResult = strResult & Mid(strSource, i, 1)
        End Select
    Next
    AlphaNumericOnly = strResult
End Function

Function AlphaNumericOnly(strSource As String) As String

Dim i As Integer

Dim strResult As String

For i = 1 To Len(strSource)

Select Case Asc(Mid(strSource, i, 1))

Case 48 To 57, 65 To 90, 97 To 122, 64, 46: 'include 32 if you want to include space

strResult = strResult & Mid(strSource, i, 1)

End Select

AlphaNumericOnly = strResult

End Function

Tags: data cleaning, email, excel, vb

This entry was posted on Wednesday, December 16th, 2015 at and is filed under Code, data handling, e-mail, excel, vb, windows. You can follow any responses to this entry through the RSS 2.0 feed. Both comments and pings are currently closed.

Comments are closed.