在excel中怎么样删除一列数据中的文字?

以下是保留数字、字母（包括大小写）和删除单元格中其他字符的代码：vbnetSub DeleteOtherCharacters()Dim myRange As RangeFor Each myRange In SelectionFor i = 1 To Len(myRange)If Not (Asc(Mid(myRange, i, 1)) >= 48 And Asc(Mid(myRange, i, 1)) = 65 And Asc(Mid(myRange, i, 1)) = 97 And Asc(Mid(myRange, i, 1))