|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 422566739 于 2019-8-17 11:10 编辑
添加一个正则函数
Public Function vbaRegExp(ByVal s, patt, Optional ByVal newText = "newTextfalse")
Dim arr()
Set reg = CreateObject("VBScript.RegExp")
With reg
.Global = True
.IgnoreCase = True
.Pattern = "" & patt & ""
If newText = "newTextfalse" Then
Set Mac = .Execute(s)
ReDim arr(1 To Mac.Count)
n = 0
For Each i In Mac
n = n + 1
arr(n) = i
Next i
vbaRegExp = arr
Else
Let res = .Replace(s, newText)
vbaRegExp = res
End If
End With
End Function
|
评分
-
1
查看全部评分
-
|