Divisão automática de texto pelo separador especificado

GETSUBSTR() Descrição

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

Código VBA para a macro

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

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

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

 =GETSUBSTR(texto; delimitador; número_de_sequência_do_fragmento) 

onde:

• texto - o texto na célula da qual pretendemos extrair fragmentos;
• divisor - o símbolo pelo qual dividiremos o texto;
• número de sequência do fragmento - um número que mostrará qual ordem de fragmento queremos obter.

Artigos sobre o tema:

• Dividindo o texto em várias colunas
• Extraindo parte dos caracteres do texto (LEFT, RIGHT, MID)
• Concatenação de texto de células diferentes (CONCATENATE)
• Concatenação de texto por condição (CONCATIF)