恳求用VBA提取数字、字母、文字的代码

松儿

恳求提取数字、字母、文字的函数.rar (1.83 KB, 下载次数: 77)

2011-10-27 18:50 上传

点击文件名下载附件

恳求提取数字、字母、文字的代码（本是想求个函数的，可有老师叫我来求代码，于是我就来了。请谅解我重发了。)

lhw78535

试一下，点“提取”
恳求提取数字、字母、文字的函数.rar (7.47 KB, 下载次数: 630)

2011-10-27 20:02 上传

点击文件名下载附件

cbtaja

你想求的都有：既是代码，又是函数，呵呵——用代码编写的自定义函数，——使用正则表达式的强大功能，你可以提取任何想要的字符！

cbtaja

把自定义函数中的默认的分隔符从空格改为“空”，公式再简化一下。同时，学习一下2楼用转义符的方法。

lhw78535

cbtaja 发表于 2011-10-27 20:44
把自定义函数中的默认的分隔符从空格改为“空”，公式再简化一下。同时，学习一下2楼用转义符的方法。

你好，我是个初学者，看了您的自定义函数，觉得很不错，但有一个地方我不明白，看你的函数如下：
Function RegExpTest(patrn, strng, Optional ByVal fgf As String = "")  Dim regEx,
  上面fgf这个参数有什么用处，这个不懂，我模仿你的做了一个没用到这个参数，如下，试验一下好像也是可以的，没什么问题，fgf这个参数作什么用，能帮忙讲解一下吗？
  
Function RegExpT(patrn, strng)
  Dim regEx, Match, Matches, retStr As String         ' 建立变量。
  Set regEx = CreateObject("vbScript.regexp") 'New RegExp         ' 建立正则表达式。
  regEx.Pattern = patrn         ' 设置模式。
  regEx.IgnoreCase = True         ' 设置是否区分大小写。
  regEx.Global = True            ' 设置全局替换。
  
  Set Matches = regEx.Execute(strng)      ' 执行搜索。
  For Each Match In Matches         ' 遍历 Matches 集合。
    retStr = retStr & Match
  Next
  RegExpT = retStr
End Function

松儿

春色满园，谢谢各位老师，了不的。辛苦了。成功了！

松儿

lhw78535 发表于 2011-10-27 21:44
你好，我是个初学者，看了您的自定义函数，觉得很不错，但有一个地方我不明白，看你的函数如下：
Func ...

向你学习！

松儿

cbtaja 发表于 2011-10-27 20:20
你想求的都有：既是代码，又是函数，呵呵——用代码编写的自定义函数，——使用正则表达式的强大功能，你可 ...

早上好。代码好用。谢谢！复制函数，在其它的表中运行：出现：



请赐教！

cbtaja

lhw78535 发表于 2011-10-27 21:44
你好，我是个初学者，看了您的自定义函数，觉得很不错，但有一个地方我不明白，看你的函数如下：
Func ...

fgf,“分隔符”。设置一个分隔符，可以把符合条件的内容分段区分出来，比如数据中包含多个数时，提取出来时，可以得到以分隔符区分的多个数，而不是连在一起的数字。
关键在于正则表达式的灵活运用。
举例来说，比如，在我第2个附件中，对于“网上买彩2年中6700万”，用公式“=RegExpTest("\d+",$A7)”，提取的数字是26700，如果加上可选参数，用公式  =RegExpTest("\d+",$A7,"、") ，那就可以得到“2、6700”了。
对于正则表达式，我也是初学，不过，有了这个自定义函数，就可以很方便地测试需要的正则表达式是否符合要求。

cbtaja

松儿 发表于 2011-10-28 07:03
早上好。代码好用。谢谢！复制函数，在其它的表中运行：出现：

你只是复制了函数，而没有复制代码。
没有代码，EXCEL是不会认识这些自定义函数的。
请按Alt+F11查看模块中的代码。