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

LibreOffice

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(текст; розділювач; порядковий_номер_фрагменту)

де:

текст - текст в комірці, з якого плануємо вилучати фрагменти;
розділювач - символ, по якому будем ділити текст;
порядковий номер фрагменту - число, яке відображатиме, який фрагмент по-порядку ми хочемо отримати.

Статті по темі: