excel中用正则匹配_excel 利用正则表达式匹配工作表中的数据

excel 利用正则表达式匹配工作表中的数据

sheet1中A列放需要匹配的数据

sheet2中A列放正则表达式，可以是多个，但至少一个

匹配到了则在sheet1中C列对应行显示相关标记内容，比如本案例中显示1111

Sub Test()

atr = Worksheets("Sheet1").Range("a65536").End(xlUp).Row

btr = Worksheets("Sheet2").Range("a65536").End(xlUp).Row

a = Worksheets("Sheet1").Range("a1:a" & atr).Value

b = Worksheets("Sheet2").Range("a1:a" & btr).Value

ReDim c(1 To atr, 1 To 1)

Set reg = CreateObject("vbscript.regexp")

With reg

.Global = True

.IgnoreCase = True

For ar = 1 To atr

For br = 1 To btr

If btr = 1 Then

.Pattern = b

Else

.Pattern = b(br, 1)

End If

If .Test(a(ar, 1)) Then

c(ar, 1) = "1111"

Exit For

End If

End With

Range("c1:c" & atr) = c

Set reg = Nothing

End Sub

原文：http://www.cnblogs.com/yorke/p/6170857.html

excel中用正则匹配_excel 利用正则表达式匹配工作表中的数据相关推荐

Excel 2010 VBA 入门 129 利用窗体向工作表中录入数据
目录题码窗体控件与工作表的交互窗体的事件窗体中ControIs集合访问控件控件的排列使用控件数组进行赋值题如图所示,该表为某公司订单记录表,其中所有的列都是必填的,订单编号为自动生成 ...
excel中用正则匹配_Excel利用正则表达式匹配和替换内容
近期使用Excel比较多,有一些匹配和替换的内容.平常涉及的比较简单,也就使用If或者VLOOKUP之类的函数.这次使用到正则表达式和VBA,在此记录一下,以防忘记. 打开文件一定要选择EXCEL打开 ...
人名和成绩一起排序_不同工作表中的数据表排序各异，如何用Excel数据透视表汇总？...
用数据透视表做分析的时候,有时源数据有好几张数据表,且分布在不同的地方.且因为维护源数据的人不同,数据表的行.列标题也未必固定不变. 那么问题来了,如果各个数据表的行标题排序各不相同,如何将它们合并到 ...
计算机用公式找出第一名,用公式查找Excel工作表中重复数据
前不久,一位网友求教,要求找出Excel工作表中的重复数据并在单元格中列出.我给出了一个数组公式供参考,但不是太符合要求,因为这个数组公式虽然找出了重复数据,但是如果将数组公式向下复制时超出了出现重复 ...
xlsx表格怎么筛选重复数据_excel怎么筛选两个表中相同数据
excel使用中,有两个拥有相同数据的工作表,应该怎么筛选出这些数据呢?下面就跟学习啦小编一起来看看吧. excel筛选两个表中相同数据的方法1 在"Sheet1"放上数据一. 在 ...
java excel 替换_Excel根据另一个工作表中的查找替换单元格值
无法解决这个问题,我搜索了几个小时并使用vlookup进行了测试 . 如果在Sheet2中的列A中找到P列中的值,我想更改或替换sheet1中A列中的单元格值 . 我接近我想要的但是当找不到匹配时我得 ...
利用SQL05特性删除表中重复数据
问题:一个表有自增的ID列,表中有一些记录内容重复,也就是说这些记录除了ID不同之外,其他的信息都相同.需要把重复的记录保留一条,剩下的删除. 这种需求一般开发人员都会,我这里写出两个版本. 版本一: ...
navicat 只对比一张表的数据_Excel VBA批量新建工作表（对比数据透视表的使用）...
在之前的一篇文章中,分享过用数据透视表的方法批量新建工作表. https://zhuanlan.zhihu.com/p/115191339zhuanlan.zhihu.com 本次将用VBA的方式快 ...
Excel 宏将工作表中的数据按照顺序分拆到本工作簿的其他工作表
(本文版本office2016) 1.需要打开"开发工具"选项 2.定义宏 3.代码(文档最后) 4.执行 5.拆分完成 Sub CF() Dim myRange As V ...

excel中用正则匹配_excel 利用正则表达式匹配工作表中的数据

excel中用正则匹配_excel 利用正则表达式匹配工作表中的数据相关推荐

最新文章

热门文章