超级好用的一个正则表达式自定义函数

蝶梦楼主

超级好用的一个正则表达式自定义函数

- 转译自:<https://stackoverflow.com/questions/22542834/how-to-use-regular-expressions-regex-in-microsoft-excel-both-in-cell-and-loops>

使用说明:

- 如何使用自定义函数请自行搜索...


<p><strong>操作符表:</strong></p>

Order	Name	Representation
---	---	---
1	成组	( )
2	成群	? + * {m,n} {m, n}?
3	锚点	abc ^ $
4	或
5	取组	$0-$9
[\table]
**字符表:**
[table]
abr	same as	meaning
---	---	---
\d	[0-9]	数字
\D	[^0-9]	非数字
\w	[a-zA-Z0-9_]	数字和字母
\W	[^a-zA-Z0-9_]	非数字字母
\s	[ \r\t \f]	空白
\S	[^ \r\t \f]	非空白
	[ ]	新行

几个例子:

> =regex("Peter Gordon: some@email.com, 47", "\w+@\w+\.\w+")

> =regex("Peter Gordon: some@email.com, 47", "\w+@\w+\.\w+", "$0")

> Results in: some@email.com

> =regex("Peter Gordon: some@email.com, 47", "^(.+): (.+), (\d+)$", "E-Mail: $2, Name: $1")

> Results in: E-Mail: some@email.com, Name: Peter Gordon

> =regex("Peter Gordon: some@email.com, 47", "^(.+): (.+), (\d+)$", "$" & 1)

> =regex("Peter Gordon: some@email.com, 47", "^(.+): (.+), (\d+)$", "$" & 2)

> Results in: Peter Gordon some@email.com .

1. Function regex(strInput As String, matchPattern As String, Optional ByVal outputPattern As String = "$0") As Variant
   
2.     Dim inputRegexObj As New VBScript_RegExp_55.RegExp, outputRegexObj As New VBScript_RegExp_55.RegExp, outReplaceRegexObj As New VBScript_RegExp_55.RegExp
   
3.     Dim inputMatches As Object, replaceMatches As Object, replaceMatch As Object
   
4.     Dim replaceNumber As Integer
   
5. 
   
6.     With inputRegexObj
   
7.         .Global = True
   
8.         .MultiLine = True
   
9.         .IgnoreCase = False
   
10.         .Pattern = matchPattern
    
11.     End With
    
12.     With outputRegexObj
    
13.         .Global = True
    
14.         .MultiLine = True
    
15.         .IgnoreCase = False
    
16.         .Pattern = "\$(\d+)"
    
17.     End With
    
18.     With outReplaceRegexObj
    
19.         .Global = True
    
20.         .MultiLine = True
    
21.         .IgnoreCase = False
    
22.     End With
    
23. 
    
24.     Set inputMatches = inputRegexObj.Execute(strInput)
    
25.     If inputMatches.count = 0 Then
    
26.         regex = False
    
27.     Else
    
28.         Set replaceMatches = outputRegexObj.Execute(outputPattern)
    
29.         For Each replaceMatch In replaceMatches
    
30.             replaceNumber = replaceMatch.SubMatches(0)
    
31.             outReplaceRegexObj.Pattern = "\$" & replaceNumber
    
32. 
    
33.             If replaceNumber = 0 Then
    
34.                 outputPattern = outReplaceRegexObj.Replace(outputPattern, inputMatches(0).Value)
    
35.             Else
    
36.                 If replaceNumber > inputMatches(0).SubMatches.count Then
    
37.                     'regex = "A to high $ tag found. Largest allowed is $" & inputMatches(0).SubMatches.Count & "."
    
38.                     regex = CVErr(xlErrValue)
    
39.                     Exit Function
    
40.                 Else
    
41.                     outputPattern = outReplaceRegexObj.Replace(outputPattern, inputMatches(0).SubMatches(replaceNumber - 1))
    
42.                 End If
    
43.             End If
    
44.         Next
    
45.         regex = outputPattern
    
46.     End If
    
47. End Function

复制代码

蝶梦楼主

插入一个module，粘进去上面的代码，工具中引用"Microsoft VBScript Regular Expressions 5.5" 就OK了。

蝶梦楼主

也可以新建一个xlsm文件，在加载项中引用，这样就可以在所有xl文件中使用了

zopey

正则 相当于一门外语。

niko88819

收藏了，谢楼主提供分享！

TerryPig

收下了，谢谢分享

lxw6

例子都是提取单个连续字符的。如果提取多个不连续字符串，也能满足吗？例如，从以下手机短信中提取日期：
str1="您的尾号为xxx的账号于19年3月12日支出800.12元"
str2="您的尾号为xxx的账号于18年11月2日支出800.12元"
提取日期结果分别为：19-3-12,18-11-2

p58535860

请问下 这个怎么使用？

gaozengxun

我需要的，好好学习学习。