TOP

Divisão automática de texto pelo separador fornecido (SPLITUP)

Abaixo você encontrará uma função que o ajudará a dividir o texto em partes com base no separador especificado.

Para fazer isso, abra o editor Visual Basic (Alt+F11), insira um novo módulo de software vazio (Insert - Module) e copie o texto desta função lá:

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

Salve e retorne para Excel. Agora em funções personalizadas você pode encontrar nossa função SPLITUP().

SPLITUP (texto; separador; número de sequência do fragmento) , onde:

Artigos sobre o tema: