【来日复制粘贴】输出匹配到的字符串

目前用正则还是很少，用到的话一般也是replace那个函数。一直头疼我要输出找到的东西咋整？原来是用数组搞定。代码如下，

Sub RegTest()'定义正则表达式对象Dim oRegExp As Object'定义匹配字符串集合对象Dim oMatches As Object'创建正则表达式'定义要执行正则查找的文本变量Dim sText As StringsText = "a,chia ko"Set oRegExp = CreateObject("vbscript.regexp")With oRegExp'设置是否匹配所有的符合项，True表示匹配所有, False表示仅匹配第一个符合项.Global = True'设置是否区分大小写，True表示不区分大小写, False表示区分大小写.IgnoreCase = True'设置要查找的字符模式.Pattern = ",[b-z].*"'判断是否可以找到匹配的字符，若可以则返回TrueMsgBox .test(sText)'对字符串执行正则查找，返回所有的查找值的集合，若未找到，则为空Set oMatches = .Execute(sText)'把字符串中用正则找到的所有匹配字符替换为其它字符MsgBox oMatches(0)  '**************************************************找匹配到的字符End WithSet oRegExp = NothingSet oMatches = NothingEnd Sub

效果：

【来日复制粘贴】输出匹配到的字符串相关推荐

【来日复制粘贴】关于排名
图之, 1. 关于效率排名公式为 =SUMPRODUCT(1*(B2/C2<B$2:B$15/C$2:C$15))+1 2. 关于不占位业绩排名公式为 =SUMPRODUCT((B$2:B$ ...
【来日复制粘贴】状态栏随机显示
最近都在折腾别的,没有好好编程,不开心.今天凑巧看到一个我老是会磕绊的地方,特此记录.另外,整个这个程序当滚动条思路还是不错的. 大意就是收款时间那里为空的就是还欠账呢,然后可以让他的大名去状态栏滚动 ...
【来日复制粘贴】使用公式提取数据
要求, 在以下表格中提取市场部人员的员工编号. 可用公式有两个,全部为数组公式 =IF(ROW(1:1)>COUNTIF(C$2:C$20,"市场部"),"&quo ...
【来日复制粘贴】跨sheet的数据录入
效果: 录入Sheet2: 代码的含义需自己点明一下,方便日后用起来瞬间理解它的运行逻辑. Sub haha()Dim lastRow As Long Dim lstData As ListObjec ...
【来日复制粘贴】提取工作表和工作簿名称
在过Excel 函数与公式的时候,看到一个可能以后在写vba时候能够使用的长公式.特此记录. 效果: 具体公式: =CELL("filename",$A$1) =MID(B2,FI ...
【来日复制粘贴】数据透视表分类不同账龄
大意就是有一些应收账数据,对应着具体日期,现在需要你把这些应收账分为:小于30天的账,31到60天的账,61到90天的账,最后是大于90天的账. 数据源接下来第一件事,把它做成数据透视表,如下图. ...
【来日复制粘贴】让PivotTable随数据源一起动起来
在不用刷新按钮的前提下,如何让pivot和数据源一起动起来呢?VBA之. 1. 首先要给数据源定义好名称,公式: =OFFSET(数据源!$A$1,,,COUNTA(数据源!$A:$A),COUNTA ...
【来日复制粘贴】用高级筛选和函数公式拆分数据列表
要求把表2里面不包含的项从表1取出,并建立一个新表. A25处的公式为 =ISNA(MATCH(A3,$F$3:$F$12,0)) ※须留意:因为例子里面的订单编号是唯一的所以用match没问题.m ...
【来日复制粘贴】利用函数公式解决Tricky的不重复记录高亮
今天在学习Excel的时候,看到了一则很实用的技巧说明,下面直接进入主题. 此处的公式就是: =SUMPRODUCT(1*($A2&$B2&$C2&$D2=$A$2:$A$16 ...

【来日复制粘贴】输出匹配到的字符串

【来日复制粘贴】输出匹配到的字符串相关推荐

最新文章

热门文章