EXCEL单元格去除文字，留下字母和数字，怎么做？

客官，您里面请

求大神指教！！！

zengxp

网上摘的一个自定义函数，目前还没理解，挺好用的

Function splithan(r As Range) As String
Dim v, c, result As String
Dim i As Integer
v = r.Value
For i = 1 To Len(v)
c = Asc(Mid(v, i, 1))
If c > 0 Then result = result + Chr(c)
Next
splithan = result
End Function
放到模块中

客官，您里面请

zengxp 发表于 2013-1-30 16:37
网上摘的一个自定义函数，目前还没理解，挺好用的

Function splithan(r As Range) As String

好的哦！谢谢你的回答哦！！！！

hehex

zengxp 发表于 2013-1-30 16:37
网上摘的一个自定义函数，目前还没理解，挺好用的

Function splithan(r As Range) As String

这个自定义函数的原理是汉字的asc 码都是负值即小于0，而英文字母和数字的asc 码都是在1-256范围内的正数
所以当对字符串进行逐字遍历的时候，判断asc 码是否小于0，如果大于0才在结果中保存该字符，这样就滤掉了汉字。同样其他一些文字可能一样被干掉。比如汉字和阿拉伯文，朝鲜文，日文，数字，字母混编的字符串，如果仅仅要滤掉汉字，恐怕就会被误杀不少。
总之这个函数设计的挺精巧。

zengxp

hehex 发表于 2013-1-31 01:07
这个自定义函数的原理是汉字的asc 码都是负值即小于0，而英文字母和数字的asc 码都是在1-256范围内的正数 ...

谢谢解答。。