Нижче ви знайдете функцію, яка допоможе поділити текст на частини по вказаному розділювачу.
Щоби добавити макрос, відкрийте редактор 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(текст; розділювач; порядковий номер фрагменту)
де: