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

GETSUBSTR() Описание

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

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

Чтобы добавить макрос, откройте редактор Visual Basic (Alt+F11), вставьте новый пустой программный модуль (Insert - Module) и скопируйте туда текст этой функции:

Function GETSUBSTR(Txt, Delimiter, n) As String
   'moonexcel.com.ua
   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(текст; разделитель; порядковый_номер_фрагмента) 

где:

• текст - текст в ячейке, из которого планируем изымать фрагменты;
• разделитель – символ, по которому будем делить текст;
• порядковый номер фрагмента - число, отображающее, какой фрагмент по-порядку мы хотим получить.

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

• Разбиение текста на несколько столбцов
• Выделение части символов из текста (LEFT, RIGHT, MID)
• Соединение текста из разных ячеек (CONCATENATE)
• Соединение текста по условию (CONCATIF)