Alter code to Remove instead of Allow characters
问题 The function allows the character listed (in this case) Case 48 To 57, 65 To 90, 97 To 122: Is it possible to change this to Remove the characters listed instead? Thanks 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: strResult = strResult & Mid(strSource, i, 1) End Select Next AlphaNumericOnly = strResult End Function 回答1: If you intend to