给EXCEL 取出乱码使用VBA

最新推荐文章于 2023-06-08 09:16:57 发布

ZHOUTING_001

最新推荐文章于 2023-06-08 09:16:57 发布

阅读量670

点赞数

分类专栏： EXCEL 文章标签： VBA Excel

本文链接：https://blog.csdn.net/ZHOUTING_001/article/details/83948895

版权

EXCEL 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

基础知识
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