TOP

Divizarea automată a textului după separatorul dat (SPLITUP)

Mai jos veți găsi o funcție care vă va ajuta să împărțiți textul în părți pe baza separatorului specificat.

Pentru a face acest lucru, deschideți editorul Visual Basic (Alt+F11), introduceți un nou modul software gol (Insert - Module) și copiați acolo textul acestei funcție:

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

Salvați și reveniți la Excel. Acum, în funcțiile personalizate, puteți găsi funcția noastră SPLITUP().

SPLITUP (text; separator; numărul de secvență al fragmentului) , Unde:

Articole pe tema: