第一种方式（需要引用VBScript RegularExpression 5.5类库）
1 Option Explicit 2 3 Sub RegularExpresstion()'方法块 4 5 Dim regex AS New RegExp '绑定定义对象 6 7 With regex 8 9 .Global=True '匹配多次 10 11 .IgnoreCase=False '区分大小写 12 13 .Pattern="([0-9]+)-([0-9]+)[a-zA-Z]+" '正则表达式 14 15 End With 16 17 Dim m As Match 'Match对象 18 19 Dim mc as MatchCollection 'Match集合 20 Dim i as Integer 21 With Thisworkbook.Worksheets("Sheet1") 22 For i=1 To .Range("A65536").End(xlUp).Row 23 Set mc =regex.Execute(.Range("A" & i) '执行 24 '提取组 和C#有所区别（第一组不是全部表达式而是第一个圆括号内的内容) 25 '索引位置用SubMatches()方法，而不是Group[] 26 For Each m In mc 27 .Range("B" & i).Value=m.SubMatches(0) 28 .Range("C" & i).Value=m.SubMatches(1) 29 Next 30 Next 31 End With 32 End Sub
第二种方式（无需直接引用类库，创建新实例）
1 Option Explicit 2 Sub RegularExpression() 3 Dim reg As Object 4 Dim mc As Object 'Matchcollection 5 Dim m As Object 'Match 6 Set reg = CreateObject("VbScript.regexp") '创建正则项目 7 With reg 8 .Global =True '匹配多次 9 .IgnoreCase = False '匹配大小写 10 .Pattern = "[0-9A-Z]+" 正则表达式 11 End With 12 Set mc=reg.Execute(Range("E7")) '执行语句 13 For Each m In mc '遍历 14 MsgBox m 15 Next 16 End Sub