Ниже вы найдете функцию, которая поможет разделить текст на части по указанному разделителю.
Чтобы добавить макрос, откройте редактор Visual Basic (Alt+F11), вставьте новый пустой программный модуль (Insert - Module) и скопируйте туда текст этой функции:
Function GETSUBSTR(Txt, Delimiter, n) As String Dim x As Variant x = Split(Txt, Delimiter) If n > 0 And n - 1 <= UBound(x) Then GETSUBSTR = x(n - 1) Else GETSUBSTR = "" End If End Function
Сохраните и вернитесь в Excel. Теперь в пользовательских функциях вы сможете найти нашу функцию GETSUBSTR().
GETSUBSTR(текст; разделитель; порядковый номер фрагмента)
где: