Модуль для поддержки функций регулярных выражений для Excel из MS Office

regexp_ms_office_excel_vba

Microsoft Excel, к сожалению, не имеет поддержки RegExp по-умолчанию "из коробки", но это легко исправить с помощью VBA.
Откройте редактор Visual Basic с вкладки Разработчик (Developer) или сочетанием клавиш Alt+F11.
Затем вставьте новый модуль через меню Insert - Module и скопируйте туда текст вот такой макрофункции:

====================

Public Function RegExpExtract(Text As String, Pattern As String, Optional Item As Integer = 1) As String
    On Error GoTo ErrHandl
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = Pattern
    regex.Global = True
    If regex.Test(Text) Then
        Set matches = regex.Execute(Text)
        RegExpExtract = matches.Item(Item - 1)
        Exit Function
    End If
ErrHandl:
    RegExpExtract = CVErr(xlErrValue)
End Function