全角字符转换成半角字符

huangyun

工作关系经常需要收集一些单位的数据，但难免有些单位由于各种原因填报上来的数据可能存在着将全角数字、字母、标点符号等字符填报上来。时间关系不能退回重新填报了，只能由我们检查整理，由于表格中有数据的单元格很多（2000行*50列左右），用人工一个一个单元格的查找很费时费力，且容易出错，所以就在网上找一段代码：

Sub 双字节转单()
Application.ScreenUpdating = False
For Each clls In Selection
If clls.HasFormula = False Then
st = StrConv(clls.Value, vbNarrow): clls.Value = st
End If
Next
Application.ScreenUpdating = True
End Sub
但其中也有些问题，比如将其中的标点如半角的句号（“。”）、顿号（“、”）全部转换成“？”了，请问高手如何解决这个遗憾或问题？或是有其他代码能够解决此问题。

northwolves

Sub 双字节转单()
Dim i As Byte
Application.ScreenUpdating = False
For i = 0 To 9
ActiveSheet.Cells.Replace StrConv(i, vbWide), i
Next
ActiveSheet.Cells.Replace "．", "."
Application.ScreenUpdating = True
End Sub

mingg

学习

qee用

可以对不能正确转换的字符先行替换,如:

If clls.HasFormula = False Then

st = replace(clls.Value, "。","."): clls.Value = st

st = StrConv(clls.Value, vbNarrow): clls.Value = st
End If

yepulu

这个实用。

gf00866

Sub 双字节转单()
Dim i As Byte
Application.ScreenUpdating = False
For i = 0 To 9
ActiveSheet.Cells.Replace StrConv(i, vbWide), i
Next
ActiveSheet.Cells.Replace "．", "."
Application.ScreenUpdating = True
End Sub
可以对不能正确转换的字符先行替换,如:

If clls.HasFormula = False Then

st = replace(clls.Value, "。","."): clls.Value = st

st = StrConv(clls.Value, vbNarrow): clls.Value = st
End If