给EXCEL 取出乱码使用VBA

基础知识
1中文的ASCII码范围是128-254  中文由2个字节组成
2英文和其他字符ASCII码范围是1-127
代码：

Sub clear()
     Dim i As Long
    For i = 2 To 31
        Selection.Replace what:=Chr(i), replacement:="", LookAt:=xlPart, SearchOrder:= _
           xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
       
    Next i
   
    '42
    For i = 33 To 39
    If (i <> 34 And i <> 36 And i <> 38) Then
    Selection.Replace what:=Chr(i), replacement:="", LookAt:=xlPart, SearchOrder:= _
       xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
       End If
    Next i
    Selection.Replace what:="~*", replacement:="", LookAt:=xlPart, SearchOrder:= _
           xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

   
    For i = 59 To 62
        Selection.Replace what:=Chr(i), replacement:="", LookAt:=xlPart, SearchOrder:= _
           xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next i
   
    Selection.Replace what:="~?", replacement:="", LookAt:=xlPart, SearchOrder:= _
           xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
    For i = 91 To 96
        Selection.Replace what:=Chr(i), replacement:="", LookAt:=xlPart, SearchOrder:= _
           xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next i
   
    For i = 123 To 125
        Selection.Replace what:=Chr(i), replacement:="", LookAt:=xlPart, SearchOrder:= _
           xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next i
   
    Selection.Replace what:="~~", replacement:="", LookAt:=xlPart, SearchOrder:= _
           xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
End Sub