Automatyczne dzielenie tekstu według określonego separatora

GETSUBSTR() Opis

Poniżej znajdziesz funkcję, która pomoże Ci podzielić tekst na części w oparciu o podany separator.

VBA kod makra

Aby dodać makro, otwórz edytor Visual Basic (Alt+F11), wstawić nowy pusty moduł oprogramowania (Insert - Module) i skopiuj tam tekst tej funkcji:

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

Zapisz i wróć do Excel. Teraz w funkcjach niestandardowych możesz znaleźć naszą funkcję GETSUBSTR().

 =GETSUBSTR(tekst; ogranicznik; numer_sekwencji_fragmentu) 

Gdzie:

• tekst - tekst w komórce, z której zamierzamy wyodrębnić fragmenty;
• rozdzielacz - symbol, według którego podzielimy tekst;
• numer kolejny fragmentu - liczba, która pokaże w jakiej kolejności chcemy uzyskać fragment.

Artykuły na ten temat:

• Podział tekstu na kilka kolumn
• Wyodrębnianie części znaków z tekstu (LEFT, RIGHT, MID)
• Łączenie tekstu z różnych komórek (CONCATENATE)
• Łączenie tekstu według warunku (CONCATIF)