我的目标：让中国的大学生走出校门的那一刻就已经具备这些Office技能，让职场人士能高效使用Office为其服务。支持鹏哥，也为自己加油！
前面一节中我们讲过在正则表达式中  a|b  表示匹配a或者是b，同样  [ab]
也表示匹配a或者b，而非匹配ab。
[0-9]表示匹配0-9中任意一个数字，[234]表示匹配2或者是3或者是4，而非匹配234。
也就是说表达或的关系   可以用“|”，也可以用[]。
下面我们看下具体的例子：
要求：左边单元格中的数据以空格区分，希望根据空格拆分到右边的单元格。
代码：
Sub 拆分()Dim regx As Object, rng As Range, mat, m, n%Set regx = CreateObject("vbscript.regexp")With regx.Global = True.Pattern = "[0-9]+"For Each rng In [a1:a6]    Set mat = .Execute(rng)           For Each m In mat                 n = n + 1                 Cells(rng.Row, n + 1) = m           Next           n = 0NextEnd WithEnd Sub
.Pattern = "[0-9]+"表示匹配0-9的之间的任意一个数字，“+”号表示匹配数字一次或者是多次，这样就把每个以空格分割开的数字全匹配出来了。
当然我们也可以写成  .Pattern = "\d+"。
[0-9a-zA-z]表示从0-9任意数字、a到z任意字母，或者A到Z任意字母。
本节的分享就到这里，鹏哥祝大家每天都有进步。
加入米宏Office培训群，每天进步一点点！
从基础操作到VBA，
两杯咖啡的钱，
换取一份如此详细的Excel视频资料，
你还在犹豫？
欲购从速，联系微信号：527240310
非诚勿扰！
每天进步一点，每天提升一点！

	

我的目标：让中国的大学生走出校门的那一刻就已经具备这些office技能，让职场人士能高效使用office为其服务。支持我，也为自己加油！
昨天我们已经讲过了正则表达式中分组和不分组的情况下匹配的结果的区别，今天我们再来剖析下分组后的执行结果MatchCollection对象。
还是昨天的案例：
我们看下本地窗口：
mat对象集合有count、item、value三个属性。
同样，SubMatche集合也有count、item、value三个属性，就像父子关系一样，SubMatche是mat的儿子。
这些属性都是可以利用的。
代码如下：
Sub 提取3()
Dim regx As Object, mat, m, n%
Set regx = CreateObject("vbscript.regexp")
With regx
.Global = True
.Pattern = "(\d+)\.?([一-龢]+)"
Set mat = .Execute([a1])
For n = 0 To mat.Count - 1
Cells(n + 3, 2) = mat(n).submatches(0)
Cells(n + 3, 3) = mat(n).submatches(1)
Next
End With
End Sub
红色部分的含义：直接执行完正则表达式后，mat.count表示匹配成功的条数，所以直接利用一个循环，从0循环到mat.count-1就可以把所有匹配到的内容循环出来，每循环一次就循环出一个item，mat(0)代表mat下面的第一个item，然后mat(n).submatches(0)就表示mat中第一个条目下，submatches中的第一个item的值。
大家可以通过对比图片和代码来理解。
通过本节我们对分组又有了更深的了解。
本节的分享就到这里，鹏哥祝大家每天都有进步。
聚米为谷
博学宏才
如果对VBA感兴趣
手机端请扫描
电脑端请登录
www.mihong.top
找到《带你走进VBA的世界》
跟着我一步步学习VBA
本节的分享就到这里，鹏哥祝大家每天都有进步。您点的每个赞，我都认真当成了喜欢

	

我的目标：让中国的大学生走出校门的那一刻就已经具备这些office技能，让职场人士能高效使用office为其服务。支持我，也为自己加油！
了解了正则表达式的基本概念及用途之后，我们就来学习下具体的用法，先以一个简单的例子来了解下正则到底是怎么用的。
案例：
比如，A1单元格中有一串字符：aabbccddaabbcc，我们要把其中的a找到，然后替换成o。
代码如下：
Sub test()
Dim regx As Object, t$, k, s, n
t = "aabbccddaabbcc"
Set regx = CreateObject("vbscript.regexp")'引用正则表达式
regx.Global = True  '查找范围，True表示全部查找，False表示只查找第一个，默认值是False。
regx.Pattern = "a"  '引号里书写正则表达式，这里要查找a，就直接写个a
Set k = regx.Execute(t)  'Execute方法的结果即k为一个对象，返回匹配成功的结果。
For Each s In k '在k中循环可以得到该k中的每个元素。
MsgBox s
Next
n = regx.Replace(t, "o")  '将匹配成功的结果做替换
MsgBox n
End Sub
上面的代码后面都有注释，首先要引用正则表达式，前期绑定也可以，直接创建也可以，然后要对regexp的两个属性做出指定，接下来就可以利用正则的方法和属性来实现一些效果了。
Global属性，指查找范围，True为全部查找，False只查找第一个，如果上面案例中其属性改为false，那么只会在该字符串中查找第一个a。
Pattern属性，指的是正则表达式。
下面讲下正则表达式的两个方法：
Execute方法，返回匹配成功的结果，是一个对象，通过for-each 可以循环其中的值。
Replace方法，将匹配的结果做替换，regx.Replace(t, "o")，t为原字符串，第二个参数为要替换为的结果。
普通字符的替换：
了解了基础的语法之后，我们来看下如何用正则对普通的字符做替换。
如上例中，把A列部门中的门字去掉。
思路：
对A列部门循环，循环出来的值用正则表达式匹配“门”字，并把匹配的结果替换成空。
代码如下：
Sub test1()
Dim regx As Object, rng1 As Range
Set regx = CreateObject("vbscript.regexp")
With regx
    .Global = True
    .Pattern = "门"
End With
For Each rng1 In Range("a2:a11")
     rng1(1, 2).Value = regx.Replace(rng1.Value, "")
Next
End Sub
这里注意regexp的两个属性可以用with语法来书写，这样显得简洁明了。当然这节课我们只是对正则表达的基础语法做了个了解，正则表达式真正的魅力在Pattern = "……"，引号中的表达式，后面的课程中我们会体会到它的强大之处。
本节的分享就到这里，鹏哥祝大家每天都有进步。
聚米为谷
博学宏才
如果对VBA感兴趣
手机端请扫描
电脑端请登录
www.mihong.top
找到《带你走进VBA的世界》
跟着我一步步学习VBA
本节的分享就到这里，鹏哥祝大家每天都有进步。您点的每个赞，我都认真当成了喜欢

	

我的目标：让中国的大学生走出校门的那一刻就已经具备这些Office技能，让职场人士能高效使用Office为其服务。支持鹏哥，也为自己加油！
正则表达式的基本概念及用途了解之后，我们就来学习下具体的语法，先以一个简单的例子来了解。
基础语法：
比如，A1单元格中有一串字符：aabbccddaabbcc，我们要把其中的a找到，然后替换成o。
代码如下：
Sub test()
Dim regx As Object, t$, k, s, n
t = "aabbccddaabbcc"
Set regx = CreateObject("vbscript.regexp")'引用正则表达式
regx.Global = True '查找范围，true为全部查找，false只查找第一个，默认是false。
regx.Pattern = "a" '引号里书写正则表达式，这里要查找a，就直接写个a
Set k = regx.Execute(t) 'Execute方法的结果为一个对象，返回匹配成功的结果。
For Each s In k '通过循环K可以得到该对象中的每个元素。
MsgBox s
Next
n = regx.Replace(t, "o") '将匹配成功的结果做替换
MsgBox n
End Sub
上面的代码后面都有注释，首先要引用正则表达式，前期绑定也可以，直接创建也可以，然后要对regexp的两个属性做出指定。
Global属性，指查找范围，true为全部查找，false只查找第一个，如果上面案例中其属性改为false，那么只要该字符串中查找第一个a。
Pattern属性，指的是正则表达式。
下面讲下正则表达式的两个方法：
Execute方法，返回匹配成功的结果，是一个对象，通过for each 可以循环其中的值。
Replace方法，将匹配的结果做替换，regx.Replace(t, "o")，t为原字符串，第二个参数为要替换为的结果。
普通字符的替换：
了解了基础的语法之后，我们来看下如何用正则对普通的字符做替换。
如上例中，把A列部门中的门字去掉。
思路：
对A列部门循环，循环出来的值用正则表达式匹配门字，并把匹配的结果替换成空。
代码如下：
Sub test1()
Dim regx As Object, rng1 As Range
Set regx = CreateObject("vbscript.regexp")
With regx
    .Global = True
    .Pattern = "门"
End With
For Each rng1 In Range("a2:a11")
     rng1(1, 2).Value = regx.Replace(rng1.Value, "")
Next
End Sub
这里注意regexp的两个属性可以用with语法来书写，这样显得简洁明了。当然这节课我们只是对正则表达的基础语法做了个了解，正则表达式真正的魅力在Pattern = "……"，引号中的表达式，后面的课程中我们会体会到它的强大之处。
本节的分享就到这里，鹏哥祝大家每天都有进步。
加入米宏Office培训群，每天进步一点点！
从基础操作到VBA，
两杯咖啡的钱，
换取一份如此详细的Excel视频资料，
你还在犹豫？
欲购从速，联系微信号：527240310
每天进步一点，每天提升一点！