Excel去除单元格中的汉字Alt+F11，插⼊，模块
Function RemoveChinese(rng As Range)
s = Len(rng.Text)
For i = 1 To s
txt = StrConv(Mid(rng.Text, i, 1), vbNarrow)
txt2 = StrConv(Mid(rng.Text, i, 1), vbWide)
If txt <> txt2 Then
RemoveChinese = RemoveChinese & Mid(rng.Text, i, 1)
Else: Exit For
End If
记住我Next i
End Function