Есть 2 варианта - искать определенные символы с помощью
ПОИСК() и нарезания строки с помощью
ПСТР() или же использовать регулярки
Public Function RegExpExtract(sText As Variant, Pattern As String) As Variant
On Error GoTo ErrHandl
Text = CStr(sText)
Dim regex As New RegExp ' создаем экземпляр RegExp
regex.Pattern = Pattern
regex.Global = False
If regex.test(Text) Then
Set matches = regex.Execute(Text)
RegExpExtract = matches.Item(0).SubMatches(0)
Exit Function
End If
ErrHandl:
RegExpExtract = ""
'RegExpExtract = "#" & err.Number & "> " & err.Description
End Function
Работает примерно как
REGEXEXTRACT() в Google Sheets