ВВЕРХ

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

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

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

Function SPLITUP(Txt, Delimiter, n) As String
   Dim x As Variant
      x = Split(Txt, Delimiter)
      If n > 0 And n - 1 <= UBound(x) Then
        SPLITUP = x(n - 1)
      Else
        SPLITUP = ""
      End If
End Function

Сохраните и вернитесь в Excel. Теперь в пользовательских функциях вы сможете найти нашу функцию SPLITUP().

SPLITUP (текст; разделитель; порядковый номер фрагмента) , где:

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