top of page

Function to remove non-alphanumeric characters from an Excel spreadsheet

The below function, posted here, will remove all non-alphanumeric characters from a cell:



Function RemoveNonAlpha(str As String) As String

Dim ch, bytes() As Byte: bytes = str

For Each ch In bytes

If Chr(ch) Like "[A-Z.a-z 0-9]" Then RemoveNonAlpha = RemoveNonAlpha & Chr(ch)

Next ch

End Function




Line breaks get removed too!

Comments

Couldn’t Load Comments
It looks like there was a technical problem. Try reconnecting or refreshing the page.
bottom of page