Excel-VBA：根据正则表达式提取文本（字符串 内容）

'测试：将“abc@@eee”中的@@提取出来Sub test()MsgBox GetValueByRegex("abc@@eee", "abc(.*?)eee")End SubFunction GetValueByRegex(ByVal OrgStr As String, ByVal PatternStr As String)Set re = CreateObject("VBScript.RegExp")re.Pattern = PatternStrre.Global = Truere.IgnoreCase = FalseSet matchs = re.Execute(OrgStr)If matchs.Count > 0 ThenGetValueByRegex = matchs(0).submatches(0)ElseGetValueByRegex = ""End IfEnd Function