EXCELで直接、詳細な手順で正規表現を行う。

Function RE(OriText As String, ReRule As String, ReplaceYesOrNo As Boolean)
'''
'OriText: the string to be matched
'ReRule: regular expression
''' 'ReplaceYesOrNo: whether to use the replace method, 1 means replace, 0 means no replace, default is no replace
'''

'Create a regular expression instance object
Set ReObject = CreateObject("vbscript.regexp")

With ReObject

 'Whether to be case-sensitive, the general requirement is not to be case-sensitive, so here is True
 IgnoreCase = True

 'Whether to match all, the general requirement is also to match all, here is also the default is True, if False means only the first occurrence of the match
 .Global = True

 'Match the regular expression used in the
 .Pattern = ReRule

 If ReplaceYesOrNo Then

  'If the replace method is used, the item matched by the regular expression will be replaced with an empty one
  RE = .Replace(OriText, "")

 Else
  'Otherwise, return the first item of the iterable object
  RE = .Execute(OriText)(0)

 End If

End With

End Function