正则表达式直接在EXCEL中使用的详细步骤

 更新时间:2021年03月17日 10:55:46   作者:徐-清风  
这篇文章主要介绍了正则表达式直接在EXCEL中使用的详细步骤,本文给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下
(福利推荐:【腾讯云】服务器最新限时优惠活动,云服务器1核2G仅99元/年、2核4G仅768元/3年,立即抢购>>>:9i0i.cn/qcloud

(福利推荐:你还在原价购买阿里云服务器?现在阿里云0.8折限时抢购活动来啦!4核8G企业云服务器仅2998元/3年,立即抢购>>>:9i0i.cn/aliyun

正则表达式,相信大家都不陌生。但在我们最常用的办公软件EXCEL中,目前没有可直接使用正则表达式的函数(至少10版本的EXCEL没有),那么今天我就分享下如何在EXCEL中自定义正则函数。

一、提需求

比如,我要拆分下面的字符串:

显然这样的需求,用正则表达式再合适不过了。

二、解决步骤

下面我们使用的这个方法,定义出的函数将长期有效:

1、新建一个EXCEL文件,我这里命名为RE,随后按ALT+F11打开宏编辑器,选中任意一个sheet,右键,选择插入模块:

2、双击模块1,编辑如下VBA自定义函数代码:

Function RE(OriText As String, ReRule As String, ReplaceYesOrNo As Boolean)
'''
'OriText:待匹配的字符串
'ReRule:正则表达式
'ReplaceYesOrNo:是否采用替换方法,1表示替换,0表示不替换,默认为不替换
'''

'创建一个正则表达式实例对象
Set ReObject = CreateObject("vbscript.regexp")

With ReObject

 '是否区分大小写,一般需求是不用区分大小写,因此这里为True
 .IgnoreCase = True

 '是否匹配所有,一般需求也都是匹配所有,这里也就默认是True,如果为False表示只匹配第一次出现的
 .Global = True

 '匹配时所用到的正则表达式
 .Pattern = ReRule

 If ReplaceYesOrNo Then

  '如果使用替换方法,则将正则表达式匹配到的项替换为空
  RE = .Replace(OriText, "")

 Else
  '否则,返回可迭代对象的第一项
  RE = .Execute(OriText)(0)

 End If

End With

End Function

3、另存为加载宏格式:

4、点击下方的加载项:

5、点击浏览:

6、选择我们刚保存的加载宏格式文件,结果如下图:

好了,到这里我们的正则函数就创建好了,随后每次打开EXCEL都可以直接使用定义的RE函数,按照需求来敲出合适的正则表达式。

三、结果呈现

到此这篇关于正则表达式直接在EXCEL中使用的详细步骤的文章就介绍到这了,更多相关正则表达式EXCEL使用内容请搜索程序员之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持程序员之家!

相关文章

最新评论

?


http://www.vxiaotou.com