第四章 正则抒发式german_sex5

4.13 正则抒发式与变量鸠集

有技巧为了活泼的编写代码， 咱们会把下一步要使用的正则抒发式先赋值给变量，然后用变量给Pattern属性赋值，这么不错屡次切换正则抒发式，以期达到匹配骨子各样化。

小神气：

把下表右列中的姓名与左列进行比对，对左列中莫得的姓名进行标红。

钱大、赵二、王小虎

钱大、赵二、李三、王小虎

小明、小强，小李

小明、小花，小强，小李

Sub 姓名比对()german_sex5

Dim reg As New RegExp

With reg

.Global = True

For Each dyg In Range('b1'， Cells(Rows.Count， 2).End(xlUp))

.Pattern = '[一-龢]+'

Set jg = .Execute(dyg)

For Each ss In jg

.Pattern = ss

中出

If Not .Test(dyg.offset(0， -1)) Then

开首 = ss.FirstIndex + 1

长度 = ss.Length

dyg.Characters(开首， 长度).Font.Color = 255

End If

Next

Next

End With

End Sub

在这个神气里german_sex5，对B列单位格进行轮回，每轮回一个单位格，齐会对Pattern属性赋值两次。第一次是'[一-龢]+'，把B列单位格的姓名匹配出来，然后把匹配的效果分手行动正则抒发式再次对Pattern属性赋值，施行这个效果在往左偏移1列的A列单位格里是否约略匹配。淌若匹配不上，诠释A列单位格不存在这个姓名，就会对它作念标红处分。

本站仅提供存储管事，扫数骨子均由用户发布，如发现存害或侵权骨子，请点击举报。