最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

正則表達式直接在EXCEL中使用的詳細步驟

 更新時間:2021年03月17日 10:55:46   作者:徐-清風(fēng)  
這篇文章主要介紹了正則表達式直接在EXCEL中使用的詳細步驟,本文給大家介紹的非常詳細,對大家的學(xué)習(xí)或工作具有一定的參考借鑒價值,需要的朋友可以參考下

正則表達式,相信大家都不陌生。但在我們最常用的辦公軟件EXCEL中,目前沒有可直接使用正則表達式的函數(shù)(至少10版本的EXCEL沒有),那么今天我就分享下如何在EXCEL中自定義正則函數(shù)。

一、提需求

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

顯然這樣的需求,用正則表達式再合適不過了。

二、解決步驟

下面我們使用的這個方法,定義出的函數(shù)將長期有效:

1、新建一個EXCEL文件,我這里命名為RE,隨后按ALT+F11打開宏編輯器,選中任意一個sheet,右鍵,選擇插入模塊:

2、雙擊模塊1,編輯如下VBA自定義函數(shù)代碼:

Function RE(OriText As String, ReRule As String, ReplaceYesOrNo As Boolean)
'''
'OriText:待匹配的字符串
'ReRule:正則表達式
'ReplaceYesOrNo:是否采用替換方法,1表示替換,0表示不替換,默認(rèn)為不替換
'''

'創(chuàng)建一個正則表達式實例對象
Set ReObject = CreateObject("vbscript.regexp")

With ReObject

 '是否區(qū)分大小寫,一般需求是不用區(qū)分大小寫,因此這里為True
 .IgnoreCase = True

 '是否匹配所有,一般需求也都是匹配所有,這里也就默認(rèn)是True,如果為False表示只匹配第一次出現(xiàn)的
 .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、選擇我們剛保存的加載宏格式文件,結(jié)果如下圖:

好了,到這里我們的正則函數(shù)就創(chuàng)建好了,隨后每次打開EXCEL都可以直接使用定義的RE函數(shù),按照需求來敲出合適的正則表達式。

三、結(jié)果呈現(xiàn)

到此這篇關(guān)于正則表達式直接在EXCEL中使用的詳細步驟的文章就介紹到這了,更多相關(guān)正則表達式EXCEL使用內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家!

相關(guān)文章

最新評論

佳木斯市| 苍山县| 盐边县| 焦作市| 新野县| 运城市| 甘肃省| 衡水市| 华容县| 永仁县| 应用必备| 绥棱县| 老河口市| 定日县| 井陉县| 逊克县| 黄骅市| 河津市| 右玉县| 乌兰浩特市| 绥宁县| 红安县| 麻城市| 如皋市| 隆尧县| 牟定县| 博罗县| 玉山县| 东阿县| 霍州市| 通江县| 新郑市| 双鸭山市| 宝坻区| 青神县| 郸城县| 大港区| 平安县| 双流县| 太仓市| 崇州市|