ВВЕРХ

Автоматическое разделение текста по заданному разделителю

GETSUBSTR() Описание

Ниже вы найдете функцию, которая поможет разделить текст на части по указанному разделителю.


VBA код для макроса

Чтобы добавить макрос, откройте редактор 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(текст; разделитель; порядковый номер фрагмента)

где:

Статьи по теме: