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

ggmmlol

lxw6 发表于 2019-3-2 16:32
例子都是提取单个连续字符的。如果提取多个不连续字符串，也能满足吗？例如，从以下手机短信中提取日期：
...

看附件。

不过，如果说这个歪国人的正则定义函数称得上好用的话，那偶的这个就绝对是吊爆了。
前者只能从单个字符串中取得单个结果，我的可以从单个字符串中提取多个结果，还可以从多个单元格中提取多个结果并以数组形式返回，因此可以用于数组公式，而前者不能返回数组结果。
此外，前者使用了3个正则对象，而我的只用1个正则对象，对比系统开销，后者更优。前者需要执行额外的替换，我的直接用正则对象本身的替换功能，效率上后者更优。最后，从代码数量上看，我的更加简洁明了。

总之，你无我有，你有我强，你繁我简。

1. Function REGREPLACE(Text1, ByVal Pttn$, Optional ByVal strReplacer$ = "", Optional ByVal Icase As Boolean = False)
   
2.     With CreateObject("VBScript.RegExp")
   
3.         .Global = True
   
4.         .IgnoreCase = Icase
   
5.         .Pattern = Pttn
   
6.         Dim ar, i, j
   
7.         If TypeName(Text1) = "Range" Then ar = Text1.Value Else ar = Text1
   
8.         If IsArray(ar) Then
   
9.             For i = 1 To UBound(ar)
   
10.                 For j = 1 To UBound(ar, 2)
    
11.                     If .Test(ar(i, j)) Then ar(i, j) = .Replace(ar(i, j), strReplacer) Else ar(i, j) = False
    
12.                 Next
    
13.             Next
    
14.         Else
    
15.             If .Test(ar) Then ar = .Replace(ar, strReplacer) Else ar = False
    
16.         End If
    
17.     End With
    
18.     REGREPLACE = ar
    
19. End Function

复制代码

正则自定义函数测试比较.rar (20.78 KB, 下载次数: 0)

2025-3-11 10:59 上传

点击文件名下载附件