excel使用正则表达式

excel文件格式：

需求：用正则表达式提取D列的***，写到E列中

步骤：

1.打开excel中的vb编辑器，点击“文件”--“选项”--“自定义功能区”，勾选“开发工具”

2.点击确定后，按Ctrl+F11打开vb窗口，点击查看代码，打开代码窗口

3.在代码窗口中输入代码

Sub testRegexp()Dim a, b, cDim regexp As ObjectDim d As StringSet regexp = CreateObject("vbscript.regexp")With regexp.Global = True.IgnoreCase = True.Pattern = ".* .{2} \d{8} (\d{18}|\d{17}[xX])"End WithFor Each a In Range("D2:D4")Set b = regexp.Execute(a.Value)Rem b.Count大于0就是匹配成功If b.Count > 0 ThenFor Each c In bRem SubMatches.Count大于0就是捕获成功If c.SubMatches.Count > 0 ThenRem vbCrLf是单元格内换行符d = d + c.SubMatches(0) + vbCrLfEnd IfNext cEnd IfWorksheets("Sheet1").Cells(a.Row, a.Column + 1).Value = dd = ""Next a
End Sub

4.按F5运行代码

5.运行效果

参考文档：

VBScript RegExp Object：正则对象说明（英文）

VBScript-RegExp对象的详细用法

转载于:https://blog.51cto.com/3475174/1670795

excel使用正则表达式相关推荐

Excel用正则表达式提取出输入正确的身份证号
今天小编帮助客户整理了一堆省份证号,如下图所示,这里为了做演示输入了一些虚拟号,想要分享的是Excel用正则表达式提取出输入正确的身份证号 (方方格子插件) 1.先看动图演示吧 2.那我了对比我们可以 ...
Excel用正则表达式统一删除文本下划线的操作
今天小编要和大家分享的是,Excel用正则表达式统一删除文本下划线的操作,如下图所示 (方方格子插件) 1.先看动图演示吧 2.开始之前我们首先选中文本. 3.然后选择方方格子按钮. 4.选择 ...
EXCEL 使用正则表达式
本文参考: https://blog.csdn.net/laoyebin/article/details/5377857(EXCEL里常用的几个正则表达式) https://blog.csdn.net ...
EXCEL VBA 正则表达式
[2011-09-09:http://www.cnblogs.com/dxy1982/archive/2011/09/09/2159246.html] [2010-08-08:http://www.e ...
Excel 使用正则表达式替换字符串
转自:http://www.pinlue.com/article/2019/03/2011/428277543311.html
excel中用正则匹配_excel 利用正则表达式匹配工作表中的数据
excel 利用正则表达式匹配工作表中的数据 sheet1中A列放需要匹配的数据 sheet2中A列放正则表达式,可以是多个,但至少一个匹配到了则在sheet1中C列对应行显示相关标记内容,比如本案 ...
jvm如何实现隐藏_反映一个隐藏的jvm超级大国
jvm如何实现隐藏告诉我更多有关反射的信息! (Tell me more about reflection!) Reflection is quite a powerful tool provide ...
easy-excel导入
使用easy excel导入excel数据到系统 1.自定义校验注解 /*** <p>Excel导入Decimal类型校验</p>*/ @Target(ElementType. ...
Part2_3 正则表达式、Excel表格相关操作
正则表达式常用操作符 #正则表达式:字符串模式(判断字符串是否符合一定的标准)import re#创建模式对象 pat = re.compile("AA") #此处的AA,是正则表 ...

excel使用正则表达式

excel使用正则表达式相关推荐

最新文章

热门文章