Я создал пользовательскую функцию для запуска поиска регулярных выражений и отображения окончательного соответствия в ячейке.
=udfRegEx([Cell you want to find the expression],[Cell with the regular expression you want to use])
Вам необходимо открыть редактор Visual Basic и поместить следующий код в модуль:
Function udfRegEx(CellLocation As Range, RegPattern As String)
Dim RegEx As Object, RegMatchCollection As Object, RegMatch As Object
Dim OutPutStr As String
Set RegEx = CreateObject("vbscript.regexp")
With RegEx
.Global = True
.Pattern = RegPattern
End With
OutPutStr = ""
Set RegMatchCollection = RegEx.Execute(CellLocation.Value)
For Each RegMatch In RegMatchCollection
OutPutStr = OutPutStr & RegMatch
Next
udfRegEx = OutPutStr
Set RegMatchCollection = Nothing
Set RegEx = Nothing
Set Myrange = Nothing
End Function
Также не забудьте добавить справочник по регулярным выражениям Microsoft VBScript 5.5