还是关于汉字、数字、英文字母分离的问题，请大侠支招

oskyzn · 发表于 2011-9-26 14:22

还是关于汉字、数字、英文字母分离的问题，A列分离成B、C效果，请大侠支招。

汉字数字字母分离.rar (18.12 KB, 下载次数: 115)

little-key · 发表于 2011-9-26 14:41

自定义函数（正则）
'数字、字母、文字分离
Function lcai分离元素(Rng As Range, Ms As Integer)
On Error Resume Next
Application.Volatile
Dim ys(1 To 15): Dim RegEx
ys(1) = "[^\d]" ' 留数字
ys(2) = "[^0-9/.]" '保留数字和小数点
ys(3) = "[^A-Za-z]" '只保留字母
ys(4) = "[!-~]" '"\w" '留中文
ys(5) = "[^0-9/.+-^\*^]" '保留数字和运算符号+-*/^
ys(6) = "[^A-Za-z0-9]" '只保留字母和数字
ys(7) = "[^!-~]" '去除中文
ys(8) = "\d" ' 去掉数字
ys(9) = "\D" '去除非数字(留数字)
ys(10) = "[a-zA_Z]" '去除英文大小写字符
ys(11) = "3*a*" '去除所有指定字符，这里指去除3和a
ys(12) = "36*" '去除所有指定字符，这里指去除"36"
ys(13) = "[^3]" '去除所有非特定字符，这里指去除不是3的字符
ys(14) = "[^0-9.]" '只保留数字和小数点
ys(15) = "[^0-9/.+-^\*^]" '保留数字和运算符号+-*/^
Set RegEx = CreateObject("VBSCRIPT.REGEXP") 'RegEx为建立正则表达式
RegEx.Global = True '设置全局可用
RegEx.Pattern = ys(Ms) '样
lcai分离元素 = RegEx.Replace(Rng, "")
Set RegEx = Nothing
End Function

oskyzn · 发表于 2011-9-26 15:07

本帖最后由 oskyzn 于 2011-9-26 15:16 编辑

little-key 发表于 2011-9-26 14:41
自定义函数（正则）
'数字、字母、文字分离
Function lcai分离元素(Rng As Range, Ms As Integer)

再问个弱的问题，大侠这个怎么用？我添加自定义函数后显示“#NAME?”，不能提供分离后的效果吗？谢谢大侠

4701568 · 发表于 2011-9-26 16:11

这个怎么用啊呀!?{:soso_e110:}

little-key · 发表于 2011-9-26 16:29

先创建一个模块，然后将代码放到模块中
和普通函数一样用

oskyzn · 发表于 2011-9-26 16:49

little-key 发表于 2011-9-26 16:29
先创建一个模块，然后将代码放到模块中
和普通函数一样用

错误提示说该函数不需要参数，请大侠挂出效果吧

little-key · 发表于 2011-9-26 16:53

看看吧

oskyzn · 发表于 2011-9-26 17:00

oskyzn · 发表于 2011-9-26 17:01

little-key 发表于 2011-9-26 16:53
看看吧

还是错误，是不是还有其它要修改的呢？

little-key · 发表于 2011-9-26 17:02

你要运行里边的宏，

		自动登录	找回密码
密码			免费注册

[求助] 还是关于汉字、数字、英文字母分离的问题，请大侠支招